basis/symbols/symbols-tests.factor

   1 USING: kernel symbols tools.test parser generic words accessors
   2 eval ;
   3 IN: symbols.tests
   4
   5 [ ] [ SYMBOLS: a b c ; ] unit-test
   6 [ a ] [ a ] unit-test
   7 [ b ] [ b ] unit-test
   8 [ c ] [ c ] unit-test
   9
  10 DEFER: blah
  11
  12 [ ] [ "IN: symbols.tests GENERIC: blah" eval ] unit-test
  13 [ ] [ "IN: symbols.tests USE: symbols SYMBOLS: blah ;" eval ] unit-test
  14
  15 [ f ] [ \ blah generic? ] unit-test
  16 [ t ] [ \ blah symbol? ] unit-test
  17
  18 [ "IN: symbols.tests USE: symbols SINGLETONS: blah blah blah ;" eval ]
  19 [ error>> error>> def>> \ blah eq? ]
  20 must-fail-with
  21