X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F19quotes_newstyle.t;h=748b11295c2a68e88c317472891f371479952b61;hb=c9225efc0cbce68b35a84ca35ca05114768825e0;hp=5b8fcc794b8915020ad24ede0a9010dc16b8d759;hpb=949172b0fa30a832d268c3f55f97247a10742314;p=dbsrgits%2FDBIx-Class.git diff --git a/t/19quotes_newstyle.t b/t/19quotes_newstyle.t index 5b8fcc7..748b112 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,10 +14,8 @@ BEGIN { : ( tests => 7 ); } -use lib qw(t/lib); - use_ok('DBICTest'); -use_ok('DBICTest::DBICDebugObj'); +use_ok('DBIC::DebugObj'); my $schema = DBICTest->init_schema(); @@ -31,7 +31,7 @@ $schema->connection( ); my ($sql, @bind) = (''); -$schema->storage->debugobj(DBICTest::DBICDebugObj->new(\$sql, \@bind)), +$schema->storage->debugobj(DBIC::DebugObj->new(\$sql, \@bind)), $schema->storage->debug(1); my $rs; @@ -64,7 +64,7 @@ $schema->connection( { AutoCommit => 1, quote_char => [qw/[ ]/], name_sep => '.' } ); -$schema->storage->debugobj(DBICTest::DBICDebugObj->new(\$sql, \@bind)), +$schema->storage->debugobj(DBIC::DebugObj->new(\$sql, \@bind)), $schema->storage->debug(1); $rs = $schema->resultset('CD')->search(