From 46830bb38d3f81c770b710786b5f23687cc1efed Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Tue, 4 Nov 2008 00:46:06 -0600 Subject: [PATCH] Fix another name clash in tests; putting all compiler tests in compiler.tests vocab is probably not good --- basis/compiler/tests/redefine2.factor | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/basis/compiler/tests/redefine2.factor b/basis/compiler/tests/redefine2.factor index c20a6d6233..d6e90187fe 100644 --- a/basis/compiler/tests/redefine2.factor +++ b/basis/compiler/tests/redefine2.factor @@ -3,16 +3,16 @@ USING: compiler compiler.units tools.test math parser kernel sequences sequences.private classes.mixin generic definitions arrays words assocs eval ; -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 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 new sequence? ] unit-test -[ 3 ] [ 0 blah new nth-unsafe ] unit-test +[ 3 ] [ 0 redefine2-test new nth-unsafe ] unit-test -[ ] [ [ blah sequence remove-mixin-instance ] with-compilation-unit ] unit-test +[ ] [ [ redefine2-test sequence remove-mixin-instance ] with-compilation-unit ] unit-test -[ f ] [ blah new sequence? ] unit-test +[ f ] [ redefine2-test new sequence? ] unit-test -[ 0 blah new nth-unsafe ] must-fail +[ 0 redefine2-test new nth-unsafe ] must-fail