Fix a couple of unit tests that were relying on the old compiler crossref structures

release
Slava Pestov 2010-01-31 23:26:55 +13:00
parent d762c8bfb3
commit 8432f4c459
2 changed files with 2 additions and 3 deletions

View File

@ -14,7 +14,7 @@ M: empty-mixin sheeple drop "wake up" ; inline
: sheeple-test ( -- string ) { } sheeple ;
: compiled-use? ( key word -- ? )
"compiled-uses" word-prop 2 <groups> key? ;
"definition-dependencies" word-prop member-eq? ;
[ "sheeple" ] [ sheeple-test ] unit-test
[ t ] [ \ sheeple-test optimized? ] unit-test

View File

@ -207,8 +207,7 @@ M: integer forget-test 3 + ;
[ ] [ "IN: generic.tests USE: math FORGET: M\\ integer forget-test" eval( -- ) ] unit-test
[ { } ] [
\ + compiled-usage keys
[ method-body? ] filter
\ + effect-dependencies-of keys [ method-body? ] filter
[ "method-generic" word-prop \ forget-test eq? ] filter
] unit-test