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

Tweak unit test in classes vocab to yield more information on failure

db4
Slava Pestov 2009-04-21 16:23:54 -05:00
parent 2e8cf3ec67
commit bd8787d540
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
core/classes/classes-tests.factor
View File

@ -3,7 +3,7 @@ io.streams.string kernel math namespaces parser prettyprint
sequences strings tools.test vectors words quotations classes sequences strings tools.test vectors words quotations classes
classes.private classes.union classes.mixin classes.predicate classes.private classes.union classes.mixin classes.predicate
classes.algebra vectors definitions source-files compiler.units classes.algebra vectors definitions source-files compiler.units
kernel.private sorting vocabs memory eval accessors ; kernel.private sorting vocabs memory eval accessors sets ;
IN: classes.tests IN: classes.tests
[ t ] [ 3 object instance? ] unit-test [ t ] [ 3 object instance? ] unit-test
@ -22,10 +22,11 @@ M: method-forget-class method-forget-test ;
[ ] [ [ \ method-forget-class forget ] with-compilation-unit ] unit-test [ ] [ [ \ method-forget-class forget ] with-compilation-unit ] unit-test
[ t ] [ \ method-forget-test "methods" word-prop assoc-empty? ] unit-test [ t ] [ \ method-forget-test "methods" word-prop assoc-empty? ] unit-test
[ t ] [ [ { } { } ] [
all-words [ class? ] filter all-words [ class? ] filter
implementors-map get keys implementors-map get keys
[ natural-sort ] bi@ = [ natural-sort ] bi@
[ diff ] [ swap diff ] 2bi
] unit-test ] unit-test
! Minor leak ! Minor leak