extra/units/imperial/imperial-tests.factor

   1 USING: kernel math tools.test units.imperial inverse ;
   2 IN: units.imperial.tests
   3
   4 [ 1 ] [ 12 inches [ feet ] undo ] unit-test
   5 [ 12 ] [ 1 feet [ inches ] undo ] unit-test
   6
   7 [ t ] [ 16 ounces 1 pounds = ] unit-test
   8 [ t ] [ 1 pounds [ ounces ] undo 16 = ] unit-test
   9
  10 [ 1 ] [ 4 quarts [ gallons ] undo ] unit-test
  11 [ 4 ] [ 1 gallons [ quarts ] undo ] unit-test
  12
  13 [ 2 ] [ 1 pints [ cups ] undo ] unit-test
  14 [ 1 ] [ 2 cups [ pints ] undo ] unit-test
  15
  16 [ 256 ] [ 1 gallons [ tablespoons ] undo ] unit-test
  17 [ 1 ] [ 256 tablespoons [ gallons ] undo ] unit-test
  18
  19 [ 768 ] [ 1 gallons [ teaspoons ] undo ] unit-test
  20 [ 1 ] [ 768 teaspoons [ gallons ] undo ] unit-test
  21