extra/sorting/quick/quick-tests.factor

   1 USING: kernel sequences sorting.quick tools.test ;
   2
   3 { { } } [ { } dup natural-sort! ] unit-test
   4 { { 1 } } [ { 1 } dup natural-sort! ] unit-test
   5 { { 1 2 3 4 5 } } [ { 1 4 2 5 3 } dup natural-sort! ] unit-test
   6
   7 {
   8     { "dino" "fred" "wilma" "betty" "barney" "pebbles" "bamm-bamm" }
   9 } [
  10     { "fred" "wilma" "pebbles" "dino" "barney" "betty" "bamm-bamm" }
  11     dup [ length ] sort-with!
  12 ] unit-test