my $schema = DBICTest->init_schema();
-plan tests => 5;
+plan tests => 6;
ok ( $schema->storage->debug(1), 'debug' );
ok ( defined(
'debugfh'
);
+$schema->storage->debugfh->autoflush(1);
my $rs = $schema->resultset('CD')->search({});
$rs->count();
$line = <$log>;
$log->close();
ok($line =~ /^SELECT COUNT/, 'Log success');
-
$schema->storage->debugobj->debugfh(undef);
delete($ENV{'DBIC_TRACE'});
open(STDERRCOPY, '>&STDERR');
ok($@, 'Died on closed FH');
open(STDERR, '>&STDERRCOPY');
+# test trace output correctness for bind params
+{
+ my $sql = '';
+ $schema->storage->debugcb( sub { $sql = $_[1] } );
+
+ my @cds = $schema->resultset('CD')->search( { artist => 1, cdid => { -between => [ 1, 3 ] }, } );
+ like(
+ $sql,
+ qr/\QSELECT me.cdid, me.artist, me.title, me.year, me.genreid, me.single_track FROM cd me WHERE ( artist = ? AND cdid BETWEEN ? AND ? ): '1', '1', '3'\E/,
+ 'got correct SQL with all bind parameters'
+ );
+}
+
1;