no-pager/t/02-frey-sql.t

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

my $debug = @ARGV ? 1 : 0;

use Test::More tests => 7;
use lib 'lib';

use Data::Dump qw/dump/;

BEGIN {
        use_ok('Frey::SQL');
}

my $sql = 'select id, a from sponge';

eval { Frey::SQL->new() };
ok( $@, 'no sponge' );
diag $@ if $debug;

my $rows = [
        [ 1, 'foo' ],
        [ 2, 'foo' ],
        [ 3, 'bar' ],
];

ok( my $o = Frey::SQL->new(
        query => $sql,
        sponge => {
                NAME => [ 'id', 'a' ],
                rows => $rows,
        },
        debug => $debug,
), "new" );

ok( my $query = $o->query, 'query' );
diag dump( $query ) if $debug;
cmp_ok( $query, 'eq', $sql, $sql );

ok( my $data = $o->as_data, 'data' );
diag dump( $data ) if $debug;
is_deeply( $data, $rows, 'got rows' );
1	dpavlin	370	#!/usr/bin/perl
2			use strict;
3			use warnings;
4
5			my $debug = @ARGV ? 1 : 0;
6
7			use Test::More tests => 7;
8			use lib 'lib';
9
10			use Data::Dump qw/dump/;
11
12			BEGIN {
13			use_ok('Frey::SQL');
14			}
15
16			my $sql = 'select id, a from sponge';
17
18			eval { Frey::SQL->new() };
19			ok( $@, 'no sponge' );
20			diag $@ if $debug;
21
22			my $rows = [
23			[ 1, 'foo' ],
24			[ 2, 'foo' ],
25			[ 3, 'bar' ],
26			];
27
28			ok( my $o = Frey::SQL->new(
29			query => $sql,
30			sponge => {
31			NAME => [ 'id', 'a' ],
32			rows => $rows,
33			},
34			debug => $debug,
35			), "new" );
36
37			ok( my $query = $o->query, 'query' );
38			diag dump( $query ) if $debug;
39			cmp_ok( $query, 'eq', $sql, $sql );
40
41	dpavlin	455	ok( my $data = $o->as_data, 'data' );
42	dpavlin	370	diag dump( $data ) if $debug;
43			is_deeply( $data, $rows, 'got rows' );