 ! Copyright (C) 2009 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors math.order sorting.slots tools.test
-sorting.human arrays sequences kernel assocs multiline
-sorting.functor ;
+arrays sequences kernel assocs multiline sorting.functor ;
 IN: sorting.literals.tests
 
 TUPLE: sort-test a b c tuple2 ;

    { length-test<=> <=> } sort-by
] unit-test

[ { { 0 1 } { 1 2 } { 1 1 } { 3 2 } } ]
[
    { { 3 2 } { 1 2 } { 0 1 } { 1 1 } }
    { length-test<=> <=> } sort-keys-by
] unit-test

[ { { 0 1 } { 1 1 } { 3 2 } { 1 2 } } ]
[
    { { 3 2 } { 1 2 } { 0 1 } { 1 1 } }
    { length-test<=> <=> } sort-values-by
] unit-test

        T{ sort-test f 1 1 11 }
        T{ sort-test f 2 5 3 }
        T{ sort-test f 2 5 2 }
    } { { a>> <=> } { b>> >=< } { c>> <=> } } sort-by
] unit-test

[ { } ]
