2008-05-06 21:59:37 -04:00
|
|
|
USING: tools.test values math ;
|
|
|
|
IN: values.tests
|
|
|
|
|
|
|
|
VALUE: foo
|
|
|
|
[ f ] [ foo ] unit-test
|
2008-09-28 01:40:41 -04:00
|
|
|
[ ] [ 3 to: foo ] unit-test
|
2008-05-06 21:59:37 -04:00
|
|
|
[ 3 ] [ foo ] unit-test
|
2009-08-13 20:21:44 -04:00
|
|
|
[ ] [ \ foo [ 1 + ] change-value ] unit-test
|
2008-05-06 21:59:37 -04:00
|
|
|
[ 4 ] [ foo ] unit-test
|