From 94292d1791467172f218bd40b8f8ac0350559160 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 15 Jan 2009 15:37:30 -0600 Subject: [PATCH] Move monotonic? unit tests to grouping --- basis/grouping/grouping-tests.factor | 8 ++++++++ core/sequences/sequences-tests.factor | 7 ------- 2 files changed, 8 insertions(+), 7 deletions(-) diff --git a/basis/grouping/grouping-tests.factor b/basis/grouping/grouping-tests.factor index cfcc653776..647f95f2cb 100644 --- a/basis/grouping/grouping-tests.factor +++ b/basis/grouping/grouping-tests.factor @@ -12,3 +12,11 @@ IN: grouping.tests ] unit-test [ { { 1 2 } { 2 3 } } ] [ { 1 2 3 } 2 [ >array ] map ] unit-test + +[ f ] [ [ { } { } "Hello" ] all-equal? ] unit-test +[ f ] [ [ { 2 } { } { } ] all-equal? ] unit-test +[ t ] [ [ ] all-equal? ] unit-test +[ t ] [ [ 1234 ] all-equal? ] unit-test +[ f ] [ [ 1.0 1 1 ] all-equal? ] unit-test +[ t ] [ { 1 2 3 4 } [ < ] monotonic? ] unit-test +[ f ] [ { 1 2 3 4 } [ > ] monotonic? ] unit-test diff --git a/core/sequences/sequences-tests.factor b/core/sequences/sequences-tests.factor index 9adc6bc602..85c4636822 100644 --- a/core/sequences/sequences-tests.factor +++ b/core/sequences/sequences-tests.factor @@ -73,13 +73,6 @@ unit-test [ { { 1 4 } { 2 5 } { 3 6 } } ] [ { { 1 2 3 } { 4 5 6 } } flip ] unit-test -[ f ] [ [ { } { } "Hello" ] all-equal? ] unit-test -[ f ] [ [ { 2 } { } { } ] all-equal? ] unit-test -[ t ] [ [ ] all-equal? ] unit-test -[ t ] [ [ 1234 ] all-equal? ] unit-test -[ f ] [ [ 1.0 1 1 ] all-equal? ] unit-test -[ t ] [ { 1 2 3 4 } [ < ] monotonic? ] unit-test -[ f ] [ { 1 2 3 4 } [ > ] monotonic? ] unit-test [ [ 2 3 4 ] ] [ [ 1 2 3 ] 1 [ + ] curry map ] unit-test [ 1 ] [ 0 [ 1 2 ] nth ] unit-test