From ce63288c07ccff9dc45e8510e35add0dc233736a Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 11 Sep 2012 14:52:37 -0700 Subject: [PATCH] sequences.extras: Add unit tests. Fix using. --- extra/sequences/extras/extras-tests.factor | 13 +++++++++++-- extra/sequences/extras/extras.factor | 5 +++-- 2 files changed, 14 insertions(+), 4 deletions(-) diff --git a/extra/sequences/extras/extras-tests.factor b/extra/sequences/extras/extras-tests.factor index 754d93788b..b051a159d1 100644 --- a/extra/sequences/extras/extras-tests.factor +++ b/extra/sequences/extras/extras-tests.factor @@ -1,5 +1,6 @@ -USING: arrays ascii kernel make math math.vectors random -sequences sequences.extras strings tools.test ; +USING: arrays ascii io io.streams.string kernel make math +math.vectors random sequences sequences.extras strings +tools.test ; IN: sequences.extras.tests @@ -137,3 +138,11 @@ IN: sequences.extras.tests { t } [ { 1 2 3 4 5 } [ 4 = ] fourth? ] unit-test { t } [ { 1 2 3 4 5 } [ 5 = ] last? ] unit-test { t } [ 4 { 1 2 3 4 5 } [ 5 = ] nth? ] unit-test + +{ { 97 115 100 102 } } [ + "asdf" [ [ read1 ] loop>array ] with-string-reader +] unit-test + +{ V{ 97 115 100 102 } } [ + "asdf" [ [ read1 ] V{ } loop>sequence ] with-string-reader +] unit-test diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor index 8c85714663..3bebf46973 100644 --- a/extra/sequences/extras/extras.factor +++ b/extra/sequences/extras/extras.factor @@ -1,5 +1,6 @@ -USING: accessors arrays assocs fry grouping kernel locals math -math.order math.ranges sequences sequences.private splitting ; +USING: accessors arrays assocs fry grouping kernel locals make +math math.order math.ranges sequences sequences.private +splitting ; FROM: sequences => change-nth ; IN: sequences.extras