Forget some classes after unit tests so that running "classes" test succeeds multiple times in a row
parent
d5dc5cfa2c
commit
df64529fb5
|
@ -8,7 +8,7 @@ destructors io.encodings.utf8 io.pathnames io.streams.string
|
||||||
kernel libc literals math mirrors namespaces prettyprint
|
kernel libc literals math mirrors namespaces prettyprint
|
||||||
prettyprint.config see sequences specialized-arrays system
|
prettyprint.config see sequences specialized-arrays system
|
||||||
tools.test parser lexer eval layouts generic.single classes
|
tools.test parser lexer eval layouts generic.single classes
|
||||||
vocabs generic classes.private ;
|
vocabs generic classes.private definitions ;
|
||||||
FROM: math => float ;
|
FROM: math => float ;
|
||||||
FROM: specialized-arrays.private => specialized-array-vocab ;
|
FROM: specialized-arrays.private => specialized-array-vocab ;
|
||||||
QUALIFIED-WITH: alien.c-types c
|
QUALIFIED-WITH: alien.c-types c
|
||||||
|
@ -553,3 +553,4 @@ STRUCT: some-accessors { aaa uint } { bbb int } ;
|
||||||
[ f ] [ \ some-accessors \ clone ?lookup-method ] unit-test
|
[ f ] [ \ some-accessors \ clone ?lookup-method ] unit-test
|
||||||
[ f ] [ \ some-accessors \ struct-slot-values ?lookup-method ] unit-test
|
[ f ] [ \ some-accessors \ struct-slot-values ?lookup-method ] unit-test
|
||||||
|
|
||||||
|
<< \ some-accessors forget >>
|
||||||
|
|
|
@ -817,3 +817,4 @@ TUPLE: rclasstest a b ;
|
||||||
[ f ] [ \ rclasstest \ b>> ?lookup-method ] unit-test
|
[ f ] [ \ rclasstest \ b>> ?lookup-method ] unit-test
|
||||||
[ f ] [ \ rclasstest \ b<< ?lookup-method ] unit-test
|
[ f ] [ \ rclasstest \ b<< ?lookup-method ] unit-test
|
||||||
|
|
||||||
|
<< \ rclasstest forget >>
|
||||||
|
|
Loading…
Reference in New Issue