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