3 |
use strict; |
use strict; |
4 |
use blib; |
use blib; |
5 |
|
|
6 |
use Test::More tests => 32; |
use Test::More tests => 34; |
7 |
use Test::Exception; |
use Test::Exception; |
8 |
#use Data::Dumper; |
#use Data::Dumper; |
9 |
|
|
49 |
ok($cond->add_attr('@foo2 BAR2 baz2'), 'set_attr'); |
ok($cond->add_attr('@foo2 BAR2 baz2'), 'set_attr'); |
50 |
#diag "attrs: ",join(",",$cond->attrs); |
#diag "attrs: ",join(",",$cond->attrs); |
51 |
cmp_ok($cond->attrs, '==', 2, 'two attrs'); |
cmp_ok($cond->attrs, '==', 2, 'two attrs'); |
52 |
|
|
53 |
|
ok($cond->set_distinct('@foo'), 'set_distinct'); |
54 |
|
cmp_ok($cond->distinct, 'eq', '@foo', 'distinct'); |