2009-05-26 11:05:55 -04:00
|
|
|
USING: sorting.human tools.test sorting.slots sorting ;
|
2008-09-12 16:49:46 -04:00
|
|
|
IN: sorting.human.tests
|
|
|
|
|
|
2009-05-26 11:05:55 -04:00
|
|
|
[ { "x1y" "x2" "x10y" } ]
|
|
|
|
|
[ { "x1y" "x10y" "x2" } { human<=> } sort-by ] unit-test
|
|
|
|
|
|
|
|
|
|
[ { "4dup" "nip" } ]
|
|
|
|
|
[ { "4dup" "nip" } [ human<=> ] sort ] unit-test
|
|
|
|
|
|
|
|
|
|
[ { "4dup" "nip" } ]
|
|
|
|
|
[ { "nip" "4dup" } [ human<=> ] sort ] unit-test
|
|
|
|
|
|
|
|
|
|
[ { "4dup" "4nip" "5drop" "nip" "nip2" "nipd" } ]
|
|
|
|
|
[ { "nip" "4dup" "4nip" "5drop" "nip2" "nipd" } [ human<=> ] sort ] unit-test
|
