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

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

2
basis/compiler/tests/redefine3.factor
View File

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

3
core/generic/generic-tests.factor
View File

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