Fix a couple of unit tests that were relying on the old compiler crossref structures
parent
d762c8bfb3
commit
8432f4c459
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in New Issue