Fix unit test failures

db4
Slava Pestov 2010-02-18 04:58:30 +13:00
parent c5259f2e2c
commit 31ccfa2e5d
2 changed files with 3 additions and 3 deletions

View File

@ -782,7 +782,7 @@ TUPLE: final-subclass < final-superclass ;
[ tuple ] [ final-subclass superclass ] unit-test
[ t ] [ \ final-subclass valid-superclass? ] unit-test
[ f ] [ \ final-subclass final-class? ] unit-test
! Subclassing a final class should fail
[ "IN: classes.tuple.tests TUPLE: final-subclass < final-superclass ;" eval( -- ) ]
@ -796,4 +796,4 @@ TUPLE: final-subclass < final-superclass ;
! Changing a superclass should not change the final status of a subclass
[ ] [ "IN: classes.tuple.tests TUPLE: final-superclass x ;" eval( -- ) ] unit-test
[ f ] [ \ final-subclass valid-superclass? ] unit-test
[ t ] [ \ final-subclass final-class? ] unit-test

View File

@ -339,7 +339,7 @@ IN: parser.tests
] unit-test
[ t ] [
"foo?" "parser.tests" lookup word eq?
"foo" "parser.tests" lookup word eq?
] unit-test
[ ] [