Fix unit test failures
parent
c5259f2e2c
commit
31ccfa2e5d
|
@ -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
|
||||
|
|
|
@ -339,7 +339,7 @@ IN: parser.tests
|
|||
] unit-test
|
||||
|
||||
[ t ] [
|
||||
"foo?" "parser.tests" lookup word eq?
|
||||
"foo" "parser.tests" lookup word eq?
|
||||
] unit-test
|
||||
|
||||
[ ] [
|
||||
|
|
Loading…
Reference in New Issue