fix tests
authorDobrica Pavlinusic <dpavlin@rot13.org>
Thu, 15 Dec 2016 13:17:53 +0000 (14:17 +0100)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Thu, 15 Dec 2016 13:17:53 +0000 (14:17 +0100)
t/6-CROSBI.t

index 37c6835..6c65b04 100755 (executable)
@@ -3,7 +3,7 @@
 use warnings;
 use strict;
 
-use Test::More tests => 11;
+use Test::More tests => 18;
 
 my $search = join(' ', @ARGV) || 'fti_au:denis bratko';
 
@@ -19,7 +19,7 @@ like $hits, qr/^\d+$/, "hits: $hits";
 
 diag "SQL", $o->{sql};
 
-$hits = 3 unless $ENV{DEBUG};
+$hits = 3 if $hits > 3 && ! $ENV{DEBUG};
 
 foreach ( 1 .. $hits ) {