Replicated - fixup types and namespace::clean

[dbsrgits/DBIx-Class.git] / t / 19quotes_newstyle.t

diff --git a/t/19quotes_newstyle.t b/t/19quotes_newstyle.t
index 124bd65..80e6d04 100644 (file)
--- a/t/19quotes_newstyle.t
+++ b/t/19quotes_newstyle.t
@@ -3,7 +3,9 @@ use warnings;
 
 use Test::More;
 use IO::File;
-use SQL::Abstract::Test import => ['is_same_sql_bind'];
+
+use lib qw(t/lib);
+use DBIC::SqlMakerTest;
 
 BEGIN {
     eval "use DBD::SQLite";
@@ -12,14 +14,12 @@ BEGIN {
         : ( tests => 7 );
 }
 
-use lib qw(t/lib);
-
 use_ok('DBICTest');
-use_ok('DBICTest::DBICDebugObj');
+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(
@@ -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(