Fix unit test failures
parent
c5259f2e2c
commit
31ccfa2e5d
|
@ -782,7 +782,7 @@ TUPLE: final-subclass < final-superclass ;
|
||||||
|
|
||||||
[ tuple ] [ final-subclass superclass ] unit-test
|
[ 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
|
! Subclassing a final class should fail
|
||||||
[ "IN: classes.tuple.tests TUPLE: final-subclass < final-superclass ;" eval( -- ) ]
|
[ "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
|
! Changing a superclass should not change the final status of a subclass
|
||||||
[ ] [ "IN: classes.tuple.tests TUPLE: final-superclass x ;" eval( -- ) ] unit-test
|
[ ] [ "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
|
] unit-test
|
||||||
|
|
||||||
[ t ] [
|
[ t ] [
|
||||||
"foo?" "parser.tests" lookup word eq?
|
"foo" "parser.tests" lookup word eq?
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
||||||
[ ] [
|
[ ] [
|
||||||
|
|
Loading…
Reference in New Issue