extra/money/money-tests.factor

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