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
classes.private classes.union classes.mixin classes.predicate
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
[ 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
[ t ] [ \ method-forget-test "methods" word-prop assoc-empty? ] unit-test
[ t ] [
[ { } { } ] [
all-words [ class? ] filter
implementors-map get keys
[ natural-sort ] bi@ =
[ natural-sort ] bi@
[ diff ] [ swap diff ] 2bi
] unit-test
! Minor leak