steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Don't rely on integers as sequences for unit tests

db4
Doug Coleman 2010-01-14 12:00:39 -06:00 committed by Slava Pestov
parent 52f4a05fad
commit 2cd10e7166
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
basis/sorting/slots/slots-tests.factor
View File

@ -1,8 +1,7 @@
! Copyright (C) 2009 Doug Coleman. ! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors math.order sorting.slots tools.test USING: accessors math.order sorting.slots tools.test
sorting.human arrays sequences kernel assocs multiline arrays sequences kernel assocs multiline sorting.functor ;
sorting.functor ;
IN: sorting.literals.tests IN: sorting.literals.tests
TUPLE: sort-test a b c tuple2 ; TUPLE: sort-test a b c tuple2 ;
@ -42,7 +41,7 @@ TUPLE: tuple2 d ;
T{ sort-test f 1 1 11 } T{ sort-test f 1 1 11 }
T{ sort-test f 2 5 3 } T{ sort-test f 2 5 3 }
T{ sort-test f 2 5 2 } T{ sort-test f 2 5 2 }
} { { a>> human<=> } { b>> human>=< } { c>> <=> } } sort-by } { { a>> <=> } { b>> >=< } { c>> <=> } } sort-by
] unit-test ] unit-test
[ { } ] [ { } ]
@ -83,14 +82,14 @@ TUPLE: tuple2 d ;
{ length-test<=> <=> } sort-by { length-test<=> <=> } sort-by
] unit-test ] unit-test
[ { { 0 1 } { 1 2 } { 1 1 } { 3 2 } } ] [ { { { 0 } 1 } { { 1 } 2 } { { 1 } 1 } { { 3 1 } 2 } } ]
[ [
{ { 3 2 } { 1 2 } { 0 1 } { 1 1 } } { { { 3 1 } 2 } { { 1 } 2 } { { 0 } 1 } { { 1 } 1 } }
{ length-test<=> <=> } sort-keys-by { length-test<=> <=> } sort-keys-by
] unit-test ] unit-test
[ { { 0 1 } { 1 1 } { 3 2 } { 1 2 } } ] [ { { 0 { 1 } } { 1 { 1 } } { 3 { 2 4 } } { 1 { 2 0 0 0 } } } ]
[ [
{ { 3 2 } { 1 2 } { 0 1 } { 1 1 } } { { 3 { 2 4 } } { 1 { 2 0 0 0 } } { 0 { 1 } } { 1 { 1 } } }
{ length-test<=> <=> } sort-values-by { length-test<=> <=> } sort-values-by
] unit-test ] unit-test