--- t/20-sql.t 2008/04/11 23:22:03 78 +++ t/20-sql.t 2008/05/31 16:30:09 145 @@ -8,11 +8,12 @@ =cut -use Jifty::Test tests => 9; +use Jifty::Test tests => 18; use_ok('A3C::SQL'); +use_ok('DBI'); -my $query = 'select now()'; +my $query = 'select 42 as nr'; ok( my $sql = A3C::SQL->new({ query => $query }), 'new' ); @@ -25,6 +26,18 @@ isa_ok( $row, 'A3C::SQL::row' ); -ok( $row->now, 'row has accessor' ); +ok( $row->nr, 'row has accessor' ); + +diag $row->nr; +is( $row->nr, 42, 'nr' ); ok( ! $sql->next, 'last row' ); + +ok( my $dbh = DBI->connect( 'DBI:Pg:dbname=template1' ), 'dbh' ); +ok( my $sql = A3C::SQL->new({ query => "select 5 as nr", dbh => $dbh }), 'new' ); +cmp_ok( $sql->count, '==', 1, 'count' ); +ok( my $row2 = $sql->next, 'next' ); +isa_ok( $row2, 'A3C::SQL::row' ); +ok( $row2->nr, 'row has accessor' ); +diag $row2->nr; +is( $row2->nr, 5, 'nr' );