steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/compiler/tests/redefine3.factor
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 ;

2
basis/compiler/tests/stack-trace.factor
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

17
core/slots/slots-tests.factor
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