basis/sorting/human/human-tests.factor

   1 USING: sorting.human tools.test sorting.slots sorting ;
   2 IN: sorting.human.tests
   3
   4 { { "x1y" "x2" "x10y" } }
   5 [ { "x1y" "x10y" "x2" } { human<=> } sort-by ] unit-test
   6
   7 { { "4dup" "nip" } }
   8 [ { "4dup" "nip" } [ human<=> ] sort ] unit-test
   9
  10 { { "4dup" "nip" } }
  11 [ { "nip" "4dup" } [ human<=> ] sort ] unit-test
  12
  13 { { "4dup" "4nip" "5drop" "nip" "nip2" "nipd" } }
  14 [ { "nip" "4dup" "4nip" "5drop" "nip2" "nipd" } [ human<=> ] sort ] unit-test
  15
  16
  17 { { "Abc" "abc" "def" "gh" } }
  18 [ { "abc" "Abc" "def" "gh" } [ human<=> ] sort ] unit-test
  19
  20 { { "abc" "Abc" "def" "gh" } }
  21 [ { "abc" "Abc" "def" "gh" } [ humani<=> ] sort ] unit-test