t/dbic/no-repeats.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use DBIx::Class::Storage::Debug::PrettyPrint;
   6
   7 my $cap;
   8 open my $fh, '>', \$cap;
   9
  10 my $pp = DBIx::Class::Storage::Debug::PrettyPrint->new({
  11    profile => 'none',
  12    squash_repeats => 1,
  13    fill_in_placeholders => 1,
  14    placeholder_surround => [qw(' ')],
  15    show_progress => 0,
  16 });
  17
  18 $pp->debugfh($fh);
  19
  20 $pp->query_start('SELECT * FROM frew WHERE id = ?', q('1'));
  21 is(
  22    $cap,
  23    qq(SELECT * FROM frew WHERE id = '1'\n),
  24    'SQL Logged'
  25 );
  26
  27 open $fh, '>', \$cap;
  28 $pp->query_start('SELECT * FROM frew WHERE id = ?', q('2'));
  29 is(
  30    $cap,
  31    qq(... : '2'\n),
  32    'Repeated SQL ellided'
  33 );
  34
  35 open $fh, '>', \$cap;
  36 $pp->query_start('SELECT * FROM frew WHERE id = ?', q('3'));
  37 is(
  38    $cap,
  39    qq(... : '3'\n),
  40    'Repeated SQL ellided'
  41 );
  42
  43 open $fh, '>', \$cap;
  44 $pp->query_start('SELECT * FROM frew WHERE id = ?', q('4'));
  45 is(
  46    $cap,
  47    qq(... : '4'\n),
  48    'Repeated SQL ellided'
  49 );
  50
  51 open $fh, '>', \$cap;
  52 $pp->query_start('SELECT * FROM bar WHERE id = ?', q('4'));
  53 is(
  54    $cap,
  55    qq(SELECT * FROM bar WHERE id = '4'\n),
  56    'New SQL Logged'
  57 );
  58
  59 open $fh, '>', \$cap;
  60 $pp->query_start('SELECT * FROM frew WHERE id = ?', q('1'));
  61 is(
  62    $cap,
  63    qq(SELECT * FROM frew WHERE id = '1'\n),
  64    'New SQL Logged'
  65 );
  66
  67 done_testing;