8 |
|
|
9 |
=cut |
=cut |
10 |
|
|
11 |
use Jifty::Test tests => 25; |
use Jifty::Test tests => 26; |
12 |
|
|
13 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
14 |
|
|
51 |
cmp_ok( $sql->count, '==', 1, 'count' ); |
cmp_ok( $sql->count, '==', 1, 'count' ); |
52 |
ok( my $row3 = $sql->next, 'next' ); |
ok( my $row3 = $sql->next, 'next' ); |
53 |
is_deeply( $row3->test, "\x{10D}evap\x{107}i\x{107}", 'correct encoding' ); |
is_deeply( $row3->test, "\x{10D}evap\x{107}i\x{107}", 'correct encoding' ); |
54 |
|
ok( $row3->TesT, 'ignore case of accessor' ); |
55 |
|
|