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

classes.tuple: adding test cases for error-class and support forget-class.

db4
John Benediktsson 2011-09-25 17:12:32 -07:00
parent 7ef1aecf88
commit f099cd5b4c
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/classes/tuple/tuple-tests.factor
View File

@ -631,12 +631,16 @@ DEFER: error-y
[ f ] [ \ error-y tuple-class? ] unit-test [ f ] [ \ error-y tuple-class? ] unit-test
[ f ] [ \ error-y error-class? ] unit-test
[ t ] [ \ error-y generic? ] unit-test [ t ] [ \ error-y generic? ] unit-test
[ ] [ "IN: classes.tuple.tests ERROR: error-y ;" eval( -- ) ] unit-test [ ] [ "IN: classes.tuple.tests ERROR: error-y ;" eval( -- ) ] unit-test
[ t ] [ \ error-y tuple-class? ] unit-test [ t ] [ \ error-y tuple-class? ] unit-test
[ t ] [ \ error-y error-class? ] unit-test
[ f ] [ \ error-y generic? ] unit-test [ f ] [ \ error-y generic? ] unit-test
[ ] [ [ ] [

4
core/classes/tuple/tuple.factor
View File

@ -293,6 +293,10 @@ M: tuple-class (define-tuple-class)
PREDICATE: error-class < tuple-class PREDICATE: error-class < tuple-class
"error-class" word-prop ; "error-class" word-prop ;
M: error-class reset-class
[ "error-class" remove-word-prop ]
[ call-next-method ] bi ;
: define-error-class ( class superclass slots -- ) : define-error-class ( class superclass slots -- )
error-slots { error-slots {
[ define-tuple-class ] [ define-tuple-class ]