basis/compiler/tests/redefine2.factor

   1 IN: compiler.tests
   2 USING: compiler compiler.units tools.test math parser kernel
   3 sequences sequences.private classes.mixin generic definitions
   4 arrays words assocs ;
   5
   6 DEFER: blah
   7
   8 [ ] [ "USE: sequences USE: kernel IN: compiler.tests TUPLE: blah ; M: blah nth 2drop 3 ; INSTANCE: blah sequence" eval ] unit-test
   9
  10 [ t ] [ blah new sequence? ] unit-test
  11
  12 [ 3 ] [ 0 blah new nth-unsafe ] unit-test
  13
  14 [ ] [ [ blah sequence remove-mixin-instance ] with-compilation-unit ] unit-test
  15
  16 [ f ] [ blah new sequence? ] unit-test
  17
  18 [ 0 blah new nth-unsafe ] must-fail