extra/units/units-tests.factor

   1 USING: arrays kernel math sequences tools.test units.si
   2 units.imperial units inverse math.functions ;
   3 IN: units.tests
   4
   5 { T{ dimensioned f 3 { m } { } } } [ 3 m ] unit-test
   6 { T{ dimensioned f 3 { m } { s } } } [ 3 m/s ] unit-test
   7 { T{ dimensioned f 4000 { m } { } } } [ 4 km ] unit-test
   8
   9 { t } [ 4 m 5 m d+ 9 m = ] unit-test
  10 { t } [ 5 m 1 m d- 4 m = ] unit-test
  11 { t } [ 5 m 2 m d* 10 m^2 = ] unit-test
  12 { t } [ 5 m 2 m d/ 5/2 { } { } <dimensioned> = ] unit-test
  13 { t } [ 2 m 5 m 2 m d/ drop 2 m = ] unit-test
  14
  15 { t } [ 1 m 2 m 3 m 3array d-product 6 m^3 = ] unit-test
  16 { t } [ 3 m d-recip 1/3 { } { m } <dimensioned> = ] unit-test
  17
  18 { t } [ 2 m  3 d^  2 m d-cube = ] unit-test
  19
  20 { t } [ 2 m  3 d^  8 { m m m } { } <dimensioned> = ] unit-test
  21 { t } [ 2 m  -3 d^  1/8 { } { m m m } <dimensioned> = ] unit-test
  22 { t } [ 2 m  0 d^  1 scalar = ] unit-test
  23
  24 : km/L ( n -- d ) km 1 L d/ ;
  25 : mpg ( n -- d ) miles 1 gallons d/ ;
  26
  27 { t } [ 100 10 / km/L [ mpg ] undo 23 1 ~ ] unit-test