X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fsequences%2Fdeep%2Fdeep-tests.factor;h=f34428699a40e47dda799a99543c8e70ed2a5c26;hp=e1b8b6efdfa17e25caa63252fe291a4450d450b9;hb=714c6d2b9464e193e24cb45fab1961d96a9d422c;hpb=e766b83ac0fcc5857602dcfae2791be3b93602b6 diff --git a/basis/sequences/deep/deep-tests.factor b/basis/sequences/deep/deep-tests.factor index e1b8b6efdf..f34428699a 100644 --- a/basis/sequences/deep/deep-tests.factor +++ b/basis/sequences/deep/deep-tests.factor @@ -34,13 +34,13 @@ IN: sequences.deep.tests [ { { 1 2 3 } 4 } { { { 1 2 3 } 4 } 2 } deep-member? ] unit-test { f } -[ { 1 2 3 { 4 } } { 1 2 3 4 } deep-subseq-index? ] unit-test +[ { 1 2 3 { 4 } } { 1 2 3 4 } deep-subseq-of? ] unit-test { t } -[ { 1 2 3 4 } { 1 2 3 4 } deep-subseq-index? ] unit-test +[ { 1 2 3 4 } { 1 2 3 4 } deep-subseq-of? ] unit-test { t } -[ { { 1 2 3 4 } } { 1 2 3 4 } deep-subseq-index? ] unit-test +[ { { 1 2 3 4 } } { 1 2 3 4 } deep-subseq-of? ] unit-test { 3 } [ { 1 { 2 3 { 4 } } 5 { { 6 } 7 } } 0 [