basis/values/values-tests.factor

   1 USING: tools.test values math ;\r
   2 IN: values.tests\r
   3 \r
   4 VALUE: foo\r
   5 [ f ] [ foo ] unit-test\r
   6 [ ] [ 3 to: foo ] unit-test\r
   7 [ 3 ] [ foo ] unit-test\r
   8 [ ] [ \ foo [ 1 + ] change-value ] unit-test\r
   9 [ 4 ] [ foo ] unit-test\r