--- trunk/t/2_condition.t 2006/01/04 22:48:29 18 +++ trunk/t/2_condition.t 2006/01/04 23:10:48 19 @@ -3,7 +3,7 @@ use strict; use blib; -use Test::More tests => 15; +use Test::More tests => 22; use Test::Exception; #use Data::Dumper; @@ -12,8 +12,11 @@ ok(my $cond = new Search::Estraier::Condition, 'new'); isa_ok($cond, 'Search::Estraier::Condition'); +cmp_ok($cond->max, '==', -1, 'max'); +cmp_ok($cond->options, '==', 0, 'options'); + ok($cond->set_phrase('search'), 'set_phrase'); -ok($cond->add_attr('@foo BAR baz'), 'set_phrase'); +ok($cond->add_attr('@foo BAR baz'), 'set_attr'); ok($cond->set_order('@foo ASC'), 'set_order'); ok($cond->set_max(42), 'set_max, number'); throws_ok { $cond->set_max('foo') } qr/number/, 'set_max, NaN'; @@ -22,4 +25,13 @@ ok($cond->set_options( $opt ), 'set_option '.$opt); } -cmp_ok($cond->phrase, 'eq', 'search', 'phrase'); +my $v; +cmp_ok($v = $cond->phrase, 'eq', 'search', "phrase: $v"); +cmp_ok($v = $cond->max, '==', 42, "max: $v"); +cmp_ok($v = $cond->options, '!=', 0, "options: $v"); + +#diag "attrs: ",join(",",$cond->attrs); +cmp_ok($cond->attrs, '==', 1, 'one attrs'); +ok($cond->add_attr('@foo2 BAR2 baz2'), 'set_attr'); +#diag "attrs: ",join(",",$cond->attrs); +cmp_ok($cond->attrs, '==', 2, 'two attrs');