compiler.utilities: move conjoin-at tests.
parent
b5dd40cc53
commit
a8b66764d5
|
@ -6,3 +6,7 @@ USING: compiler.utilities kernel tools.test ;
|
||||||
} [
|
} [
|
||||||
7 H{ { 7 44 } { 44 9 } { 9 9 } } [ compress-path ] keep
|
7 H{ { 7 44 } { 44 9 } { 9 9 } } [ compress-path ] keep
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
||||||
|
{ H{ { 3 H{ { 1 1 } { 2 2 } } } } } [
|
||||||
|
H{ } clone 1 3 pick conjoin-at 2 3 pick conjoin-at
|
||||||
|
] unit-test
|
||||||
|
|
|
@ -118,8 +118,6 @@ IN: sets.tests
|
||||||
|
|
||||||
{ H{ { 3 HS{ 1 2 } } } } [ H{ } clone 1 3 pick adjoin-at 2 3 pick adjoin-at ] unit-test
|
{ H{ { 3 HS{ 1 2 } } } } [ H{ } clone 1 3 pick adjoin-at 2 3 pick adjoin-at ] unit-test
|
||||||
|
|
||||||
{ H{ { 3 H{ { 1 1 } { 2 2 } } } } } [ H{ } clone 1 3 pick conjoin-at 2 3 pick conjoin-at ] unit-test
|
|
||||||
|
|
||||||
TUPLE: null-set ;
|
TUPLE: null-set ;
|
||||||
INSTANCE: null-set set
|
INSTANCE: null-set set
|
||||||
M: null-set members drop f ;
|
M: null-set members drop f ;
|
||||||
|
|
Loading…
Reference in New Issue