--- trunk/t/5_Node.t 2006/11/05 16:25:56 190 +++ trunk/t/5_Node.t 2008/01/20 16:50:59 198 @@ -3,15 +3,14 @@ use strict; use blib; -my $tests = 312; - use Test::More; use Test::Exception; use Data::Dumper; -BEGIN { use_ok('Search::Estraier') }; - -plan tests => $tests; +BEGIN { + plan tests => 313; + use_ok('Search::Estraier'); +}; my $debug = shift @ARGV; @@ -45,7 +44,7 @@ SKIP: { -skip "can't find estmaster at $estmaster_uri", ($tests - 9) if (! eval { $node->master( action => 'nodelist' ) } ); +skip "can't find estmaster at $estmaster_uri", ( 313 - 10 ) if (! eval { $node->master( action => 'nodelist' ) } ); diag "using $estmaster_uri"; diag("node->master shutdown not tested"); @@ -278,7 +277,7 @@ } # test distinct -ok(my $cond = new Search::Estraier::Condition, 'new cond'); +ok($cond = new Search::Estraier::Condition, 'new cond'); ok($cond->set_phrase('girl'), 'cond set_phrase'); my $distinct = '@title'; ok($cond->set_distinct( $distinct ), "cond set_distinct($distinct)");