2008-07-29 01:05:50 -04:00
|
|
|
USING: money parser tools.test eval ;
|
2008-03-01 17:00:45 -05:00
|
|
|
IN: money.tests
|
2008-02-11 17:21:59 -05:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ -1/10 } [ DECIMAL: -.1 ] unit-test
|
|
|
|
{ -1/10 } [ DECIMAL: -0.1 ] unit-test
|
|
|
|
{ -1/10 } [ DECIMAL: -00.10 ] unit-test
|
2008-02-11 17:21:59 -05:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ 0 } [ DECIMAL: .0 ] unit-test
|
|
|
|
{ 0 } [ DECIMAL: 0.0 ] unit-test
|
|
|
|
{ 0 } [ DECIMAL: 0. ] unit-test
|
|
|
|
{ 0 } [ DECIMAL: 0 ] unit-test
|
|
|
|
{ 1/10 } [ DECIMAL: .1 ] unit-test
|
|
|
|
{ 1/10 } [ DECIMAL: 0.1 ] unit-test
|
|
|
|
{ 1/10 } [ DECIMAL: 00.10 ] unit-test
|
|
|
|
{ 23 } [ DECIMAL: 23 ] unit-test
|
|
|
|
{ -23 } [ DECIMAL: -23 ] unit-test
|
|
|
|
{ -23-1/100 } [ DECIMAL: -23.01 ] unit-test
|
2008-02-11 17:21:59 -05:00
|
|
|
|
|
|
|
[ "DECIMAL: ." eval ] must-fail
|
|
|
|
[ "DECIMAL: f" eval ] must-fail
|
|
|
|
[ "DECIMAL: 0.f" eval ] must-fail
|
|
|
|
[ "DECIMAL: f.0" eval ] must-fail
|
2008-11-29 13:03:07 -05:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ "$100.00" } [ DECIMAL: 100.0 money>string ] unit-test
|
|
|
|
{ "$0.00" } [ DECIMAL: 0.0 money>string ] unit-test
|