8 |
|
|
9 |
=cut |
=cut |
10 |
|
|
11 |
use Jifty::Test tests => 24; |
use Jifty::Test tests => 26; |
12 |
|
|
13 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
14 |
|
|
24 |
|
|
25 |
cmp_ok( $sql->count, '==', 1, 'count' ); |
cmp_ok( $sql->count, '==', 1, 'count' ); |
26 |
|
|
27 |
|
ok( my $duration = $sql->duration, 'duration' ); |
28 |
|
diag "duration: $duration"; |
29 |
|
|
30 |
ok( my $row = $sql->next, 'next' ); |
ok( my $row = $sql->next, 'next' ); |
31 |
|
|
32 |
isa_ok( $row, 'A3C::SQL::row' ); |
isa_ok( $row, 'A3C::SQL::row' ); |
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 |
|
|