2007-10-06 13:37:11 -04:00
|
|
|
USING: kernel tools.test units.si inverse math.constants
|
|
|
|
|
math.functions units.imperial ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ t } [ 1 m 100 cm = ] unit-test
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ t } [ 180 arc-deg [ radians ] undo pi 0.0001 ~ ] unit-test
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ t } [ 180 arc-min [ arc-deg ] undo 3 0.0001 ~ ] unit-test
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ -40 } [ -40 deg-F [ deg-C ] undo ] unit-test
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ -40 } [ -40 deg-C [ deg-F ] undo ] unit-test
|
