classes: remove fragile unit test
parent
0d6f3354ab
commit
30dea58330
|
@ -28,16 +28,6 @@ M: method-forget-class method-forget-test ;
|
|||
[ diff ] [ swap diff ] 2bi
|
||||
] 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
|
||||
USE: multiline
|
||||
|
||||
|
|
Loading…
Reference in New Issue