From e90732f5e76dcaaefe604162729521f99ecc4a48 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 14 May 2012 16:12:35 -0700 Subject: [PATCH] sequences.extras: adding test for insert-sorted. --- extra/sequences/extras/extras-tests.factor | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/extra/sequences/extras/extras-tests.factor b/extra/sequences/extras/extras-tests.factor index 564e2d2ea0..49b3a7e26d 100644 --- a/extra/sequences/extras/extras-tests.factor +++ b/extra/sequences/extras/extras-tests.factor @@ -1,5 +1,5 @@ -USING: ascii kernel make math sequences sequences.extras strings -tools.test ; +USING: arrays ascii kernel make math random sequences +sequences.extras strings tools.test ; IN: sequences.extras.tests @@ -19,6 +19,12 @@ IN: sequences.extras.tests [ { "foo" } ] [ { { "foo" } { "bar" } } [ first ] maximum ] unit-test [ { "bar" } ] [ { { "foo" } { "bar" } } [ first ] minimum ] unit-test +{ V{ 0 1 2 3 4 5 6 7 8 9 } } [ + V{ } clone + 10 iota >array randomize + [ swap insert-sorted ] each +] unit-test + [ { "a" "b" "c" "d" "ab" "bc" "cd" "abc" "bcd" "abcd" } ] [ "abcd" all-subseqs ] unit-test [ { "a" "ab" "abc" "abcd" "b" "bc" "bcd" "c" "cd" "d" } ]