extra/units/imperial/imperial-tests.factor

   1 USING: kernel math tools.test units.imperial inverse ;
   2
   3 { 1 } [ 12 inches [ feet ] undo ] unit-test
   4 { 12 } [ 1 feet [ inches ] undo ] unit-test
   5
   6 { t } [ 16 ounces 1 pounds = ] unit-test
   7 { t } [ 1 pounds [ ounces ] undo 16 = ] unit-test
   8
   9 { 1 } [ 4 quarts [ gallons ] undo ] unit-test
  10 { 4 } [ 1 gallons [ quarts ] undo ] unit-test
  11
  12 { 2 } [ 1 pints [ cups ] undo ] unit-test
  13 { 1 } [ 2 cups [ pints ] undo ] unit-test
  14
  15 { 256 } [ 1 gallons [ tablespoons ] undo ] unit-test
  16 { 1 } [ 256 tablespoons [ gallons ] undo ] unit-test
  17
  18 { 768 } [ 1 gallons [ teaspoons ] undo ] unit-test
  19 { 1 } [ 768 teaspoons [ gallons ] undo ] unit-test
  20
  21 { 1 } [ 6 feet [ fathoms ] undo ] unit-test
  22 { 1 } [ 8 furlongs [ miles ] undo ] unit-test
  23 { 1 } [ 100 links [ chains ] undo ] unit-test
  24 { 1 } [ 40 poles [ furlongs ] undo ] unit-test
  25 { 1 } [ 100 feet [ ramsdens-chains ] undo ] unit-test
  26
  27 { 1 } [ 15 fathoms [ shackles ] undo ] unit-test
  28 { 1 } [ 30 yards [ shackles ] undo ] unit-test
  29 { 1 } [ 608 feet [ cables ] undo ] unit-test
  30
  31 { 1 } [ 4 inches [ hands ] undo ] unit-test
  32 { 1 } [ 3 inches [ palms ] undo ] unit-test
  33 { 1 } [ 16 nails [ yards ] undo ] unit-test
  34 { 7 } [ 8 fingers [ inches ] undo ] unit-test