A3C/t/20-sql.t

#!/usr/bin/env perl
use warnings;
use strict;

=head1 DESCRIPTION

test SQL module

=cut

use Jifty::Test tests => 9;

use_ok('A3C::SQL');

my $query = 'select now()';

ok( my $sql = A3C::SQL->new({ query => $query }), 'new' );

isa_ok( $sql, 'A3C::SQL' );
is( $sql->query, $query, 'sql' );

cmp_ok( $sql->count, '==', 1, 'count' );

ok( my $row = $sql->next, 'next' );

isa_ok( $row, 'A3C::SQL::row' );

ok( $row->now, 'row has accessor' );

ok( ! $sql->next, 'last row' );
1	#!/usr/bin/env perl
2	use warnings;
3	use strict;
4
5	=head1 DESCRIPTION
6
7	test SQL module
8
9	=cut
10
11	use Jifty::Test tests => 9;
12
13	use_ok('A3C::SQL');
14
15	my $query = 'select now()';
16
17	ok( my $sql = A3C::SQL->new({ query => $query }), 'new' );
18
19	isa_ok( $sql, 'A3C::SQL' );
20	is( $sql->query, $query, 'sql' );
21
22	cmp_ok( $sql->count, '==', 1, 'count' );
23
24	ok( my $row = $sql->next, 'next' );
25
26	isa_ok( $row, 'A3C::SQL::row' );
27
28	ok( $row->now, 'row has accessor' );
29
30	ok( ! $sql->next, 'last row' );