core/words/constant/constant-tests.factor

   1 IN: words.constant.tests
   2 USING: tools.test math words.constant ;
   3
   4 CONSTANT: a +
   5
   6 { + } [ a ] unit-test
   7
   8 { t } [ \ a constant? ] unit-test
   9
  10 CONSTANT: b \ +
  11
  12 { \ + } [ b ] unit-test
  13
  14 CONSTANT: c { 1 2 3 }
  15
  16 { { 1 2 3 } } [ c ] unit-test
  17
  18 SYMBOL: foo
  19
  20 { f } [ \ foo constant? ] unit-test