t/dbic/bulk-insert.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    fill_in_placeholders => 1,
  13    placeholder_surround => [qw(' ')],
  14    show_progress => 0,
  15 });
  16
  17 $pp->debugfh($fh);
  18
  19 $pp->query_start('INSERT INTO self_ref_alias (alias, self_ref) VALUES ( ?, ? )', qw('__BULK_INSERT__' '1'));
  20 is(
  21    $cap,
  22    qq{INSERT INTO self_ref_alias( alias, self_ref ) VALUES( ?, ? ) : '__BULK_INSERT__', '1'\n},
  23    'SQL Logged'
  24 );
  25
  26 done_testing;