extra/units/units-tests.factor

   1 USING: arrays kernel math sequences tools.test units.si units ;
   2 IN: temporary
   3
   4 [ T{ dimensioned f 3 { m } { } } ] [ 3 m ] unit-test
   5 [ T{ dimensioned f 3 { m } { s } } ] [ 3 m/s ] unit-test
   6 [ T{ dimensioned f 4000 { m } { } } ] [ 4 km ] unit-test
   7
   8 [ t ] [ 4 m 5 m d+ 9 m = ] unit-test
   9 [ t ] [ 5 m 1 m d- 4 m = ] unit-test
  10 [ t ] [ 5 m 2 m d* 10 m^2 = ] unit-test
  11 [ t ] [ 5 m 2 m d/ 5/2 { } { } <dimensioned> = ] unit-test
  12 [ t ] [ 5 m 2 m tuck d/ drop 2 m = ] unit-test
  13
  14 [ t ] [ 1 m 2 m 3 m 3array d-product 6 m^3 = ] unit-test
  15 [ t ] [ 3 m d-recip 1/3 { } { m } <dimensioned> = ] unit-test
  16
  17 ! I want these to work, Dan
  18
  19 : km/L km 1 L d/ ;
  20 : mpg miles 1 gallons d/ ;
  21
  22 [ t ] [ 100 10 / km/L [ mpg ] undo 23 1 ~ ] unit-test