X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F19quotes_newstyle.t;h=f0c34a918627de73b6c93b329819ab7c96d5f5e5;hb=3abafb11007307452da109622919fb9af0979d26;hp=1290e11225d93ffee5b1df56b4c4ba03216a3344;hpb=67e1ac6d25851f53d1a0e2264313e29d8e4bb3b2;p=dbsrgits%2FDBIx-Class.git diff --git a/t/19quotes_newstyle.t b/t/19quotes_newstyle.t index 1290e11..f0c34a9 100644 --- a/t/19quotes_newstyle.t +++ b/t/19quotes_newstyle.t @@ -3,6 +3,8 @@ use warnings; use Test::More; use IO::File; + +use lib qw(t/lib); use DBIC::SqlMakerTest; BEGIN { @@ -12,14 +14,12 @@ BEGIN { : ( tests => 7 ); } -use lib qw(t/lib); - use_ok('DBICTest'); use_ok('DBIC::DebugObj'); my $schema = DBICTest->init_schema(); -diag('Testing against ' . join(' ', map { $schema->storage->dbh->get_info($_) } qw/17 18/)); +#diag('Testing against ' . join(' ', map { $schema->storage->dbh->get_info($_) } qw/17 18/)); my $dsn = $schema->storage->_dbi_connect_info->[0]; $schema->connection( @@ -30,7 +30,7 @@ $schema->connection( { quote_char => '`', name_sep => '.' }, ); -my ($sql, @bind) = (''); +my ($sql, @bind); $schema->storage->debugobj(DBIC::DebugObj->new(\$sql, \@bind)), $schema->storage->debug(1);