1 ! Copyright (C) 2009 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors math.order sorting.slots tools.test
4 arrays sequences kernel assocs multiline sorting.functor ;
5 IN: sorting.literals.tests
7 TUPLE: sort-test a b c tuple2 ;
13 T{ sort-test { a 1 } { b 3 } { c 9 } }
14 T{ sort-test { a 1 } { b 1 } { c 10 } }
15 T{ sort-test { a 1 } { b 1 } { c 11 } }
16 T{ sort-test { a 2 } { b 5 } { c 2 } }
17 T{ sort-test { a 2 } { b 5 } { c 3 } }
21 T{ sort-test f 1 3 9 }
22 T{ sort-test f 1 1 10 }
23 T{ sort-test f 1 1 11 }
24 T{ sort-test f 2 5 3 }
25 T{ sort-test f 2 5 2 }
26 } { { a>> <=> } { b>> >=< } { c>> <=> } } sort-by
31 T{ sort-test { a 1 } { b 3 } { c 9 } }
32 T{ sort-test { a 1 } { b 1 } { c 10 } }
33 T{ sort-test { a 1 } { b 1 } { c 11 } }
34 T{ sort-test { a 2 } { b 5 } { c 2 } }
35 T{ sort-test { a 2 } { b 5 } { c 3 } }
39 T{ sort-test f 1 3 9 }
40 T{ sort-test f 1 1 10 }
41 T{ sort-test f 1 1 11 }
42 T{ sort-test f 2 5 3 }
43 T{ sort-test f 2 5 2 }
44 } { { a>> <=> } { b>> >=< } { c>> <=> } } sort-by
48 [ { } { { a>> <=> } { b>> >=< } { c>> <=> } } sort-by ] unit-test
51 [ { } { } sort-by ] unit-test
55 T{ sort-test { a 6 } { tuple2 T{ tuple2 { d 1 } } } }
56 T{ sort-test { a 6 } { tuple2 T{ tuple2 { d 2 } } } }
57 T{ sort-test { a 5 } { tuple2 T{ tuple2 { d 3 } } } }
58 T{ sort-test { a 6 } { tuple2 T{ tuple2 { d 3 } } } }
59 T{ sort-test { a 6 } { tuple2 T{ tuple2 { d 3 } } } }
60 T{ sort-test { a 5 } { tuple2 T{ tuple2 { d 4 } } } }
64 T{ sort-test f 6 f f T{ tuple2 f 1 } }
65 T{ sort-test f 5 f f T{ tuple2 f 4 } }
66 T{ sort-test f 6 f f T{ tuple2 f 3 } }
67 T{ sort-test f 6 f f T{ tuple2 f 3 } }
68 T{ sort-test f 5 f f T{ tuple2 f 3 } }
69 T{ sort-test f 6 f f T{ tuple2 f 2 } }
70 } { { tuple2>> d>> <=> } { a>> <=> } } sort-by
74 [ { "a" "b" "c" } ] [ { "b" "c" "a" } { <=> <=> } sort-by ] unit-test
75 [ { "b" "c" "a" } ] [ { "b" "c" "a" } { } sort-by ] unit-test
77 << "length-test" [ length ] define-sorting >>
79 [ { { 1 } { 1 2 3 } { 1 3 2 } { 3 2 1 } } ]
81 { { 3 2 1 } { 1 2 3 } { 1 3 2 } { 1 } }
82 { length-test<=> <=> } sort-by
85 [ { { { 0 } 1 } { { 1 } 2 } { { 1 } 1 } { { 3 1 } 2 } } ]
87 { { { 3 1 } 2 } { { 1 } 2 } { { 0 } 1 } { { 1 } 1 } }
88 { length-test<=> <=> } sort-keys-by
91 [ { { 0 { 1 } } { 1 { 1 } } { 3 { 2 4 } } { 1 { 2 0 0 0 } } } ]
93 { { 3 { 2 4 } } { 1 { 2 0 0 0 } } { 0 { 1 } } { 1 { 1 } } }
94 { length-test<=> <=> } sort-values-by