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
  22 { 1 } [ 6 feet [ fathoms ] undo ] unit-test
  23 { 1 } [ 8 furlongs [ miles ] undo ] unit-test
  24 { 1 } [ 100 links [ chains ] undo ] unit-test
  25 { 1 } [ 40 poles [ furlongs ] undo ] unit-test
  26 { 1 } [ 100 feet [ ramsdens-chains ] undo ] unit-test
  27
  28 { 1 } [ 15 fathoms [ shackles ] undo ] unit-test
  29 { 1 } [ 30 yards [ shackles ] undo ] unit-test
  30 { 1 } [ 608 feet [ cables ] undo ] unit-test
  31
  32 { 1 } [ 4 inches [ hands ] undo ] unit-test
  33 { 1 } [ 3 inches [ palms ] undo ] unit-test
  34 { 1 } [ 16 nails [ yards ] undo ] unit-test
  35 { 1 } [ 8 fingers [ yards ] undo ] unit-test