trunk/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	#!/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 );