classes: remove fragile unit test
parent
0d6f3354ab
commit
30dea58330
|
@ -28,16 +28,6 @@ M: method-forget-class method-forget-test ;
|
||||||
[ diff ] [ swap diff ] 2bi
|
[ diff ] [ swap diff ] 2bi
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
||||||
! Minor leak
|
|
||||||
[ ] [ "IN: classes.tests TUPLE: forget-me ;" eval( -- ) ] unit-test
|
|
||||||
[ ] [ f \ word set-global ] unit-test
|
|
||||||
[ ] [ "IN: classes.tests USE: kernel USE: classes.algebra forget-me tuple class<= drop" eval( -- ) ] unit-test
|
|
||||||
[ ] [ "IN: classes.tests FORGET: forget-me" eval( -- ) ] unit-test
|
|
||||||
[ 0 ] [
|
|
||||||
[ word? ] instances
|
|
||||||
[ [ name>> "forget-me" = ] [ vocabulary>> "classes.tests" = ] bi and ] count
|
|
||||||
] unit-test
|
|
||||||
|
|
||||||
! Long-standing problem
|
! Long-standing problem
|
||||||
USE: multiline
|
USE: multiline
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue