extra/units/si/si-tests.factor

   1 USING: kernel tools.test units.si inverse math.constants
   2 math.functions units.imperial ;
   3 IN: units.si.tests
   4
   5 [ t ] [ 1 m 100 cm = ] unit-test
   6
   7 [ t ] [ 180 arc-deg [ radians ] undo pi 0.0001 ~ ] unit-test
   8
   9 [ t ] [ 180 arc-min [ arc-deg ] undo 3 0.0001 ~ ] unit-test
  10
  11 [ -40 ] [ -40 deg-F [ deg-C ] undo ] unit-test
  12
  13 [ -40 ] [ -40 deg-C [ deg-F ] undo ] unit-test