basis/compiler/tests/redefine2.factor

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