extra/money/money-tests.factor

   1 USING: money parser tools.test eval ;
   2
   3 { -1/10 } [ DECIMAL: -.1 ] unit-test
   4 { -1/10 } [ DECIMAL: -0.1 ] unit-test
   5 { -1/10 } [ DECIMAL: -00.10 ] unit-test
   6
   7 { 0 } [ DECIMAL: .0 ] unit-test
   8 { 0 } [ DECIMAL: 0.0 ] unit-test
   9 { 0 } [ DECIMAL: 0. ] unit-test
  10 { 0 } [ DECIMAL: 0 ] unit-test
  11 { 1/10 } [ DECIMAL: .1 ] unit-test
  12 { 1/10 } [ DECIMAL: 0.1 ] unit-test
  13 { 1/10 } [ DECIMAL: 00.10 ] unit-test
  14 { 23 } [ DECIMAL: 23 ] unit-test
  15 { -23 } [ DECIMAL: -23 ] unit-test
  16 { -23-1/100 } [ DECIMAL: -23.01 ] unit-test
  17
  18 [ "DECIMAL: ." eval ] must-fail
  19 [ "DECIMAL: f" eval ] must-fail
  20 [ "DECIMAL: 0.f" eval ] must-fail
  21 [ "DECIMAL: f.0" eval ] must-fail
  22
  23 { "$100.00" } [ DECIMAL: 100.0 money>string ] unit-test
  24 { "$0.00" } [ DECIMAL: 0.0 money>string ] unit-test
  25
  26 { "$1.00" } [ 1.0 money>string ] unit-test
  27 { "$1.00" } [ 1 money>string ] unit-test
  28 { "$1.50" } [ 1+1/2 money>string ] unit-test
  29 { "$1.50" } [ 1.50 money>string ] unit-test