From a77bbfc28e8a34c804970e416a025bf3bbaed80d Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 26 May 2008 05:44:33 -0500 Subject: [PATCH] Fix unit test failure --- core/parser/parser-tests.factor | 20 +++++++++++++++++++- 1 file changed, 19 insertions(+), 1 deletion(-) diff --git a/core/parser/parser-tests.factor b/core/parser/parser-tests.factor index 6f31b0ad7c..e8199d3520 100755 --- a/core/parser/parser-tests.factor +++ b/core/parser/parser-tests.factor @@ -463,7 +463,25 @@ must-fail-with [ [ ] ] [ 2 [ - "IN: classes.tests DEFER: twice-fails FORGET: twice-fails MIXIN: twice-fails" + "IN: parser.tests DEFER: twice-fails FORGET: twice-fails MIXIN: twice-fails" "twice-fails-test" parse-stream ] times ] unit-test + +[ [ ] ] [ + "IN: parser.tests : staging-problem-test-1 1 ; : staging-problem-test-2 staging-problem-test-1 ;" + "staging-problem-test" parse-stream +] unit-test + +[ t ] [ "staging-problem-test-1" "parser.tests" lookup >boolean ] unit-test + +[ t ] [ "staging-problem-test-2" "parser.tests" lookup >boolean ] unit-test + +[ [ ] ] [ + "IN: parser.tests << : staging-problem-test-1 1 ; >> : staging-problem-test-2 staging-problem-test-1 ;" + "staging-problem-test" parse-stream +] unit-test + +[ t ] [ "staging-problem-test-1" "parser.tests" lookup >boolean ] unit-test + +[ t ] [ "staging-problem-test-2" "parser.tests" lookup >boolean ] unit-test