3 |
use strict; |
use strict; |
4 |
use blib; |
use blib; |
5 |
|
|
6 |
use Test::More tests => 31; |
use Test::More tests => 32; |
7 |
use Test::Exception; |
use Test::Exception; |
8 |
#use Data::Dumper; |
#use Data::Dumper; |
9 |
|
|
37 |
|
|
38 |
cmp_ok($cond->set_options( SURE => 1 ), '==', $cond->set_options('SURE'), "set_option backward compatibility"); |
cmp_ok($cond->set_options( SURE => 1 ), '==', $cond->set_options('SURE'), "set_option backward compatibility"); |
39 |
|
|
40 |
|
ok($cond->set_mask(qw/0 1 2/), 'mask'); |
41 |
|
|
42 |
my $v; |
my $v; |
43 |
cmp_ok($v = $cond->phrase, 'eq', 'search', "phrase: $v"); |
cmp_ok($v = $cond->phrase, 'eq', 'search', "phrase: $v"); |
44 |
cmp_ok($v = $cond->max, '==', 42, "max: $v"); |
cmp_ok($v = $cond->max, '==', 42, "max: $v"); |