basis/compiler/tests/call-effect.factor

   1 USING: tools.test combinators generic.single sequences kernel ;
   2 IN: compiler.tests.call-effect
   3
   4 : execute-ic-test ( a b -- c ) execute( a -- c ) ;
   5
   6 ! VM type check error
   7 [ 1 f execute-ic-test ] [ second 3 = ] must-fail-with
   8
   9 : call-test ( q -- ) call( -- ) ;
  10
  11 { } [ [ ] call-test ] unit-test
  12 { } [ f [ drop ] curry call-test ] unit-test
  13 { } [ [ ] [ ] compose call-test ] unit-test
  14 [ [ 1 2 3 ] call-test ] [ wrong-values? ] must-fail-with