extra/sorting/bubble/bubble-tests.factor

   1 USING: kernel tools.test ;
   2 IN: sorting.bubble
   3
   4 { { } } [ { } dup natural-bubble-sort! ] unit-test
   5 { { 1 } } [ { 1 } dup natural-bubble-sort! ] unit-test
   6 { { 1 2 3 4 5 } } [ { 1 4 2 5 3 } dup natural-bubble-sort! ] unit-test