1  use <util/sort.scad>
 2  use <util/bsearch.scad>
 3  
 4  module test_bsearch() {
 5      echo("==== test_bsearch ====");
 6  
 7      points = [[1, 1], [3, 4], [7, 2], [5, 2]];
 8      sorted = sort(points, by = "vt"); //  [[1, 1], [5, 2], [7, 2], [3, 4]]
 9  
10      assert(bsearch(sorted, [7, 2]) == 2);
11  
12      xIs5 = function(elem) elem[0] - 5;
13      assert(bsearch(sorted, xIs5) == 1);
14  
15      yIs4 = function(elem) elem[1] - 4;
16      assert(bsearch(sorted, yIs4) == 3);
17  }
18  
19  test_bsearch();