basis/binary-search/binary-search-tests.factor

   1 USING: binary-search kernel math.order sequences tools.test ;
   2
   3 { f } [ 3 { } [ <=> ] with search drop ] unit-test
   4 { 0 } [ 3 { 3 } [ <=> ] with search drop ] unit-test
   5 { 1 } [ 2 { 1 2 3 } [ <=> ] with search drop ] unit-test
   6 { 3 } [ 4 { 1 2 3 4 5 6 } [ <=> ] with search drop ] unit-test
   7 { 2 } [ 3.5 { 1 2 3 4 5 6 7 8 } [ <=> ] with search drop ] unit-test
   8 { 4 } [ 5.5 { 1 2 3 4 5 6 7 8 } [ <=> ] with search drop ] unit-test
   9 { 10 } [ 10 20 <iota> [ <=> ] with search drop ] unit-test
  10
  11 { 0 } [ "alligator" { "alligator" "cat" "fish" "hello" "ikarus" "java" } sorted-index ] unit-test
  12 { 3 } [ "hey" { "alligator" "cat" "fish" "hello" "ikarus" "java" } sorted-index ] unit-test
  13 { 5 } [ "java" { "alligator" "cat" "fish" "hello" "ikarus" "java" } sorted-index ] unit-test
  14 { t } [ "hello" { "alligator" "cat" "fish" "hello" "ikarus" "java" } sorted-member? ] unit-test
  15 { f } [ "hello" { "alligator" "cat" "fish" "ikarus" "java" } sorted-member? ] unit-test
  16 { f } [ "zebra" { "alligator" "cat" "fish" "ikarus" "java" } sorted-member? ] unit-test