1 USING: kernel tools.test units.si inverse math.constants
2 math.functions units.imperial ;
4 { t } [ 1 m 100 cm = ] unit-test
6 { t } [ 180 arc-deg [ radians ] undo pi 0.0001 ~ ] unit-test
8 { t } [ 180 arc-min [ arc-deg ] undo 3 0.0001 ~ ] unit-test
10 { -40 } [ -40 deg-F [ deg-C ] undo ] unit-test
12 { -40 } [ -40 deg-C [ deg-F ] undo ] unit-test
14 { 1024 } [ 1 kibi ] unit-test
15 { 1024 } [ 1 Ki ] unit-test