Parent Directory | Revision Log
Search::Estraier::Condition, new, set_phrase, set_order, set_max
1 | #!/usr/bin/perl -w |
2 | |
3 | use strict; |
4 | use blib; |
5 | |
6 | use Test::More tests => 8; |
7 | use Test::Exception; |
8 | #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 | ok($cond->set_phrase('search'), 'set_phrase'); |
16 | ok($cond->add_attr('@foo BAR baz'), 'set_phrase'); |
17 | ok($cond->set_order('@foo ASC'), 'set_order'); |
18 | ok($cond->set_max(42), 'set_max, number'); |
19 | throws_ok { $cond->set_max('foo') } qr/number/, 'set_max, NaN'; |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |