zimbardo/t/02-Frey-DBI.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::DBI');
}

my $dsn = 'DBI:SQLite:dbname=./test.sqlite';
my $sql = 'select 1';

eval { Frey::DBI->new( dsn => 'fake' ) };
ok( $@, 'fake dsn' );
diag $@ if $debug;

ok( my $o = Frey::DBI->new( dsn => $dsn, query => $sql, debug => $debug ), "new $dsn" );

ok( my $data = $o->dsn, 'dsn' );
diag dump( $dsn ) if $debug;
cmp_ok( $data, 'eq', $dsn, 'correct' );

ok( my $query = $o->query, 'query' );
diag dump( $query ) if $debug;
cmp_ok( $query, 'eq', $sql, $sql );
1	dpavlin	366	#!/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::DBI');
14			}
15
16			my $dsn = 'DBI:SQLite:dbname=./test.sqlite';
17			my $sql = 'select 1';
18
19			eval { Frey::DBI->new( dsn => 'fake' ) };
20			ok( $@, 'fake dsn' );
21			diag $@ if $debug;
22
23			ok( my $o = Frey::DBI->new( dsn => $dsn, query => $sql, debug => $debug ), "new $dsn" );
24
25			ok( my $data = $o->dsn, 'dsn' );
26			diag dump( $dsn ) if $debug;
27			cmp_ok( $data, 'eq', $dsn, 'correct' );
28
29			ok( my $query = $o->query, 'query' );
30			diag dump( $query ) if $debug;
31			cmp_ok( $query, 'eq', $sql, $sql );