trunk/t/2_Condition.t

#!/usr/bin/perl -w

use strict;
use blib;

use Test::More tests => 22;
use Test::Exception;
#use Data::Dumper;

BEGIN { use_ok('Search::Estraier') };

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_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';

foreach my $opt (qw/SURE USUAL FAST AGITO NOIDF SIMPLE/) {
        ok($cond->set_options( $opt ), 'set_option '.$opt);
}

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');
1	dpavlin	15	#!/usr/bin/perl -w
2
3			use strict;
4			use blib;
5
6	dpavlin	19	use Test::More tests => 22;
7	dpavlin	16	use Test::Exception;
8	dpavlin	15	#use Data::Dumper;
9
10			BEGIN { use_ok('Search::Estraier') };
11
12			ok(my $cond = new Search::Estraier::Condition, 'new');
13			isa_ok($cond, 'Search::Estraier::Condition');
14
15	dpavlin	19	cmp_ok($cond->max, '==', -1, 'max');
16			cmp_ok($cond->options, '==', 0, 'options');
17
18	dpavlin	16	ok($cond->set_phrase('search'), 'set_phrase');
19	dpavlin	19	ok($cond->add_attr('@foo BAR baz'), 'set_attr');
20	dpavlin	16	ok($cond->set_order('@foo ASC'), 'set_order');
21			ok($cond->set_max(42), 'set_max, number');
22			throws_ok { $cond->set_max('foo') } qr/number/, 'set_max, NaN';
23	dpavlin	17
24			foreach my $opt (qw/SURE USUAL FAST AGITO NOIDF SIMPLE/) {
25			ok($cond->set_options( $opt ), 'set_option '.$opt);
26			}
27	dpavlin	18
28	dpavlin	19	my $v;
29			cmp_ok($v = $cond->phrase, 'eq', 'search', "phrase: $v");
30			cmp_ok($v = $cond->max, '==', 42, "max: $v");
31			cmp_ok($v = $cond->options, '!=', 0, "options: $v");
32
33			#diag "attrs: ",join(",",$cond->attrs);
34			cmp_ok($cond->attrs, '==', 1, 'one attrs');
35			ok($cond->add_attr('@foo2 BAR2 baz2'), 'set_attr');
36			#diag "attrs: ",join(",",$cond->attrs);
37			cmp_ok($cond->attrs, '==', 2, 'two attrs');