Merge 'trunk' into 'sqla_1.50_compat'

diff --cc lib/DBIx/Class/Manual/Cookbook.pod
Simple merge
diff --cc lib/DBIx/Class/ResultSet.pm
Simple merge
diff --cc lib/DBIx/Class/Storage/DBI.pm
Simple merge
diff --cc t/91debug.t

index a9a1b73,e53a1d5..d940eaa
--- 1/t/91debug.t
--- 2/t/91debug.t
+++ b/t/91debug.t
@@@ -55,19 -53,10 +55,19 @@@ open(STDERR, '>&STDERRCOPY')
      $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'
+ +    is_same_sql_bind(
+ +        $sql, [],
-         "SELECT me.cdid, me.artist, me.title, me.year, me.genreid FROM cd me WHERE ( artist = ? AND cdid BETWEEN ? AND ? ): '1', '1', '3'", [],
++        "SELECT 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'", [],
+ +        'got correct SQL with all bind parameters (debugcb)'
+ +    );
+ +
+ +    $schema->storage->debugcb(undef);
+ +    $schema->storage->debugobj(DBIC::DebugObj->new(\$sql, \@bind));
+ +    @cds = $schema->resultset('CD')->search( { artist => 1, cdid => { -between => [ 1, 3 ] }, } );
+ +    is_same_sql_bind(
+ +        $sql, \@bind,
-         "SELECT me.cdid, me.artist, me.title, me.year, me.genreid FROM cd me WHERE ( artist = ? AND cdid BETWEEN ? AND ? )", ["'1'", "'1'", "'3'"],
++        "SELECT 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'"],
+ +        'got correct SQL with all bind parameters (debugobj)'
      );
  }
  
diff --cc t/99dbic_sqlt_parser.t

index 1ad7832,bbac5e3..26d6b50
--- 1/t/99dbic_sqlt_parser.t
--- 2/t/99dbic_sqlt_parser.t
+++ b/t/99dbic_sqlt_parser.t
@@@ -8,8 -8,8 +8,8 @@@ use DBICTest
  BEGIN {
      eval "use DBD::mysql; use SQL::Translator 0.09;";
      plan $@
- -        ? ( skip_all => 'needs SQL::Translator 0.09 for testing' )
+ +        ? ( skip_all => 'needs DBD::mysql and SQL::Translator 0.09 for testing' )
-         : ( tests => 102 );
+         : ( tests => 114 );
  }
  
  my $schema = DBICTest->init_schema();
		1	2
lib/DBIx/Class/Manual/Cookbook.pod	patch \|	diff1 \|	diff2 \|	blob \| history
lib/DBIx/Class/ResultSet.pm	patch \|	diff1 \|	diff2 \|	blob \| history
lib/DBIx/Class/Storage/DBI.pm	patch \|	diff1 \|	diff2 \|	blob \| history
t/91debug.t	patch \|	diff1 \|	diff2 \|	blob \| history
t/99dbic_sqlt_parser.t	patch \|	diff1 \|	diff2 \|	blob \| history