_debug not debug, RT#67179

[dbsrgits/SQL-Abstract.git] / t / dbic / no-repeats.t

diff --git a/t/dbic/no-repeats.t b/t/dbic/no-repeats.t
index fd53867..71273f9 100644 (file)
--- a/t/dbic/no-repeats.t
+++ b/t/dbic/no-repeats.t
@@ -2,6 +2,13 @@ use strict;
 use warnings;
 
 use Test::More;
+
+BEGIN {
+  # ask for a recent DBIC version to skip the 5.6.2 tests as well
+  plan skip_all => 'Test temporarily requires DBIx::Class'
+    unless eval { require DBIx::Class::Storage::Statistics; DBIx::Class->VERSION('0.08124') };
+}
+
 use DBIx::Class::Storage::Debug::PrettyPrint;
 
 my $cap;
@@ -9,9 +16,9 @@ open my $fh, '>', \$cap;
 
 my $pp = DBIx::Class::Storage::Debug::PrettyPrint->new({
    profile => 'none',
-   no_repeats => 1,
+   squash_repeats => 1,
    fill_in_placeholders => 1,
-   placeholder_surround => [qw(' ')],
+   placeholder_surround => ['', ''],
    show_progress => 0,
 });
 
@@ -20,7 +27,7 @@ $pp->debugfh($fh);
 $pp->query_start('SELECT * FROM frew WHERE id = ?', q('1'));
 is(
    $cap,
-   qq(SELECT * FROM frew WHERE id = '1'\n\n),
+   qq(SELECT * FROM frew WHERE id = '1'\n),
    'SQL Logged'
 );
 
@@ -28,7 +35,7 @@ open $fh, '>', \$cap;
 $pp->query_start('SELECT * FROM frew WHERE id = ?', q('2'));
 is(
    $cap,
-   qq(... : '2'\n\n),
+   qq(... : '2'\n),
    'Repeated SQL ellided'
 );
 
@@ -36,7 +43,7 @@ open $fh, '>', \$cap;
 $pp->query_start('SELECT * FROM frew WHERE id = ?', q('3'));
 is(
    $cap,
-   qq(... : '3'\n\n),
+   qq(... : '3'\n),
    'Repeated SQL ellided'
 );
 
@@ -44,7 +51,7 @@ open $fh, '>', \$cap;
 $pp->query_start('SELECT * FROM frew WHERE id = ?', q('4'));
 is(
    $cap,
-   qq(... : '4'\n\n),
+   qq(... : '4'\n),
    'Repeated SQL ellided'
 );
 
@@ -52,7 +59,7 @@ open $fh, '>', \$cap;
 $pp->query_start('SELECT * FROM bar WHERE id = ?', q('4'));
 is(
    $cap,
-   qq(SELECT * FROM bar WHERE id = '4'\n\n),
+   qq(SELECT * FROM bar WHERE id = '4'\n),
    'New SQL Logged'
 );
 
@@ -60,7 +67,7 @@ open $fh, '>', \$cap;
 $pp->query_start('SELECT * FROM frew WHERE id = ?', q('1'));
 is(
    $cap,
-   qq(SELECT * FROM frew WHERE id = '1'\n\n),
+   qq(SELECT * FROM frew WHERE id = '1'\n),
    'New SQL Logged'
 );