]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/compiler/tests/redefine2.factor
Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...
[factor.git] / basis / compiler / tests / redefine2.factor
index 107381c4d3b73dd3e91859eceed9b7baba52b24b..b6a46fc0df520487bc11dc67848303eb95e1a5f5 100644 (file)
@@ -1,18 +1,20 @@
-IN: compiler.tests
 USING: compiler compiler.units tools.test math parser kernel
 sequences sequences.private classes.mixin generic definitions
-arrays words assocs ;
+arrays words assocs eval words.symbol ;
+IN: compiler.tests.redefine2
 
-DEFER: blah
+DEFER: redefine2-test
 
-[ ] [ "USE: sequences USE: kernel IN: compiler.tests TUPLE: blah ; M: blah nth 2drop 3 ; INSTANCE: blah sequence" eval ] unit-test
+[ ] [ "USE: sequences USE: kernel IN: compiler.tests.redefine2 TUPLE: redefine2-test ; M: redefine2-test nth 2drop 3 ; INSTANCE: redefine2-test sequence" eval( -- ) ] unit-test
 
-[ t ] [ blah new sequence? ] unit-test
+[ t ] [ \ redefine2-test symbol? ] unit-test
 
-[ 3 ] [ 0 blah new nth-unsafe ] unit-test
+[ t ] [ redefine2-test new sequence? ] unit-test
 
-[ ] [ [ blah sequence remove-mixin-instance ] with-compilation-unit ] unit-test
+[ 3 ] [ 0 redefine2-test new nth-unsafe ] unit-test
 
-[ f ] [ blah new sequence? ] unit-test
+[ ] [ [ redefine2-test sequence remove-mixin-instance ] with-compilation-unit ] unit-test
 
-[ 0 blah new nth-unsafe ] must-fail
+[ f ] [ redefine2-test new sequence? ] unit-test
+
+[ 0 redefine2-test new nth-unsafe ] must-fail