core/words/alias/alias-tests.factor

   1 USING: math eval lexer tools.test effects sequences ;
   2 IN: words.alias.tests
   3
   4 ALIAS: foo +
   5 { } [ "IN: words.alias.tests CONSTANT: foo 5" eval( -- ) ] unit-test
   6 { ( -- value ) } [ \ foo stack-effect ] unit-test
   7
   8 ALIAS: MY-H{ H{
   9 { H{ { 1 2 } } } [
  10     "IN: words.alias.tests MY-H{ { 1 2 } }" eval( -- x )
  11 ] unit-test