Skip to content

Commit

Permalink
GLR fix for binary search test
Browse files Browse the repository at this point in the history
  • Loading branch information
moritz committed Sep 27, 2015
1 parent 5ae578d commit e1bf7b4
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions t/05-search.t
Expand Up @@ -24,7 +24,7 @@ for (1.5, 2, 2.5, 3, 3.5, 4, 5.5, 6) -> $x
is(lower-bound(@array, 8), @array.elems - 1, "Equal to the big end returns max_index");
is(lower-bound(@array, 8.5), @array.elems, "Off the big end returns max_index + 1");

my @masak = "a" xx 10, "b" xx 100;
my @masak = flat "a" xx 10, "b" xx 100;
is binary-search(@masak, * eq "a"), 10, 'binary-search finds a/b boundary';
{
my $count = 0;
Expand All @@ -48,4 +48,4 @@ for "b".."e" -> $x
ok @alpha[$i - 1] le $x lt @alpha[$i], "upper bound - 1 <= $x < upper bound";
}

done-testing;
done-testing;

0 comments on commit e1bf7b4

Please sign in to comment.