core/sorting/sorting-tests.factor

   1 USING: sorting sequences kernel math random tools.test
   2 vectors ;
   3 IN: temporary
   4
   5 [ [ ] ] [ [ ] natural-sort ] unit-test
   6
   7 [ { 270000000 270000001 } ]
   8 [ T{ slice f 270000000 270000002 270000002 } natural-sort ]
   9 unit-test
  10
  11 [ t ] [
  12     100 [
  13         drop
  14         100 [ drop 20 random [ drop 1000 random ] map ] map natural-sort [ <=> 0 <= ] monotonic?
  15     ] all?
  16 ] unit-test
  17
  18 [ ] [ { 1 2 } [ 2drop 1 ] sort drop ] unit-test
  19
  20 [ 3 ] [ { 1 2 3 4 } midpoint ] unit-test
  21
  22 [ f ] [ 3 { } [ - ] binsearch ] unit-test
  23 [ 0 ] [ 3 { 3 } [ - ] binsearch ] unit-test
  24 [ 1 ] [ 2 { 1 2 3 } [ - ] binsearch ] unit-test
  25 [ 3 ] [ 4 { 1 2 3 4 5 6 } [ - ] binsearch ] unit-test
  26 [ 1 ] [ 3.5 { 1 2 3 4 5 6 7 8 } [ - ] binsearch ] unit-test
  27 [ 3 ] [ 5.5 { 1 2 3 4 5 6 7 8 } [ - ] binsearch ] unit-test
  28 [ 10 ] [ 10 20 >vector [ - ] binsearch ] unit-test