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

Add failing unit tests

db4
Slava Pestov 2008-05-23 17:33:57 -05:00
parent f693c69c40
commit a251556024
2 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -160,3 +160,12 @@ TUPLE: flat-mx-2-1 ; INSTANCE: flat-mx-2-1 flat-mx-2
[ t ] [ 3 number instance? ] unit-test [ t ] [ 3 number instance? ] unit-test
[ f ] [ 3 null instance? ] unit-test [ f ] [ 3 null instance? ] unit-test
[ t ] [ "hi" \ hi-tag instance? ] unit-test [ t ] [ "hi" \ hi-tag instance? ] unit-test
! Regression
GENERIC: method-forget-test
TUPLE: method-forget-class ;
M: method-forget-class method-forget-test ;
[ f ] [ \ method-forget-test "methods" assoc-empty? ] unit-test
[ ] [ [ \ method-forget-class forget ] with-compilation-unit ] unit-test
[ t ] [ \ method-forget-test "methods" assoc-empty? ] unit-test

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

@ -460,3 +460,10 @@ must-fail-with
"change-combination" "parser.tests" lookup "change-combination" "parser.tests" lookup
"methods" word-prop assoc-size "methods" word-prop assoc-size
] unit-test ] unit-test
[ [ ] ] [
2 [
"IN: classes.tests DEFER: twice-fails FORGET: twice-fails MIXIN: twice-fails"
<string-reader> "twice-fails-test" parse-stream
] times
] unit-test