extra/sorting/heap/heap-tests.factor

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