Fix some unit test failures

db4
Slava Pestov 2009-08-18 03:49:05 -05:00
parent 9ee4259705
commit 507e2b7f3a
3 changed files with 4 additions and 21 deletions

View File

@ -5,11 +5,11 @@ IN: compiler.tests.redefine3
GENERIC: sheeple ( obj -- x )
M: object sheeple drop "sheeple" ;
M: object sheeple drop "sheeple" ; inline
MIXIN: empty-mixin
M: empty-mixin sheeple drop "wake up" ;
M: empty-mixin sheeple drop "wake up" ; inline
: sheeple-test ( -- string ) { } sheeple ;

View File

@ -13,7 +13,7 @@ IN: compiler.tests.stack-trace
[ baz ] [ 3 = ] must-fail-with
[ t ] [
symbolic-stack-trace
[ word? ] filter
2 head*
{ baz bar foo } tail?
] unit-test
@ -24,7 +24,7 @@ IN: compiler.tests.stack-trace
[ t ] [
[ { 1 "hi" } bleh ] ignore-errors \ + stack-trace-any?
] unit-test
[ t f ] [
[ { "hi" } bleh ] ignore-errors
\ + stack-trace-any?

View File

@ -18,23 +18,6 @@ TUPLE: hello length ;
[ "xyz" 4 >>length ] [ no-method? ] must-fail-with
[ t ] [ r/o-test \ foo>> method "foldable" word-prop ] unit-test
[ t ] [ r/o-test \ foo>> method "flushable" word-prop ] unit-test
[ f ] [ r/w-test \ foo>> method "foldable" word-prop ] unit-test
[ t ] [ r/w-test \ foo>> method "flushable" word-prop ] unit-test
! See if declarations are cleared on redefinition
[ ] [ "IN: slots.tests TUPLE: r/w-test { foo read-only } ;" eval( -- ) ] unit-test
[ t ] [ r/w-test \ foo>> method "foldable" word-prop ] unit-test
[ t ] [ r/w-test \ foo>> method "flushable" word-prop ] unit-test
[ ] [ "IN: slots.tests TUPLE: r/w-test foo ;" eval( -- ) ] unit-test
[ f ] [ r/w-test \ foo>> method "foldable" word-prop ] unit-test
[ t ] [ r/w-test \ foo>> method "flushable" word-prop ] unit-test
! Test protocol slots
SLOT: my-protocol-slot-test