[Bast-commits] r5855 - in DBIx-Class/0.08/branches: . release_0.080 release_0.080/t

[ash at dev.catalyst.perl.org]

Author: ash
Date: 2009-04-05 14:51:03 +0100 (Sun, 05 Apr 2009)
New Revision: 5855

Added:
   DBIx-Class/0.08/branches/release_0.080/
Modified:
   DBIx-Class/0.08/branches/release_0.080/Makefile.PL
   DBIx-Class/0.08/branches/release_0.080/t/81transactions.t
   DBIx-Class/0.08/branches/release_0.080/t/91debug.t
   DBIx-Class/0.08/branches/release_0.080/t/95sql_maker_quote.t
Log:
Fix test in t/91debug.t for less ambigious SQL bracketing for 0.08013 release

Copied: DBIx-Class/0.08/branches/release_0.080 (from rev 5468, DBIx-Class/0.08/branches/stopgap)

Modified: DBIx-Class/0.08/branches/release_0.080/Makefile.PL
===================================================================
--- DBIx-Class/0.08/branches/stopgap/Makefile.PL	2009-02-13 14:47:56 UTC (rev 5468)
+++ DBIx-Class/0.08/branches/release_0.080/Makefile.PL	2009-04-05 13:51:03 UTC (rev 5855)
@@ -1,4 +1,4 @@
-use inc::Module::Install 0.67;
+use inc::Module::Install 0.81;
 
 name     'DBIx-Class';
 perl_version '5.006001';
@@ -6,16 +6,16 @@
 
 requires 'Data::Page'                => 2.00;
 requires 'Scalar::Util'              => 0;
-requires 'SQL::Abstract'             => 1.24;
+requires 'SQL::Abstract'             => 1.51;
 requires 'SQL::Abstract::Limit'      => 0.13;
 requires 'Class::C3'                 => 0.20;
-requires 'Class::C3::Componentised'  => 0;
+requires 'Class::C3::Componentised'  => 1.0004;
 requires 'Storable'                  => 0;
 requires 'Carp::Clan'                => 0;
 requires 'DBI'                       => 1.40;
 requires 'Module::Find'              => 0;
 requires 'Class::Inspector'          => 0;
-requires 'Class::Accessor::Grouped'  => 0.08002;
+requires 'Class::Accessor::Grouped'  => 0.08003;
 requires 'JSON::Any'                 => 1.17;
 requires 'Scope::Guard'              => 0.03;
 requires 'List::Util'                => 1.19;

Modified: DBIx-Class/0.08/branches/release_0.080/t/81transactions.t
===================================================================
--- DBIx-Class/0.08/branches/stopgap/t/81transactions.t	2009-02-13 14:47:56 UTC (rev 5468)
+++ DBIx-Class/0.08/branches/release_0.080/t/81transactions.t	2009-04-05 13:51:03 UTC (rev 5855)
@@ -241,7 +241,6 @@
 
 # Test txn_scope_guard
 {
-  local $TODO = "Work out how this should work";
 
   # reset schema
   $schema = DBICTest->init_schema();
@@ -276,6 +275,7 @@
     # forcing a txn_rollback to happen
     outer($schema, 0);
   };
+  local $TODO = "Work out how this should work";
   is($@, "Not sure what we want here, but something", "Rollback okay");
 
   ok(!$artist_rs->find({name => 'Death Cab for Cutie'}), "Artist not created");

Modified: DBIx-Class/0.08/branches/release_0.080/t/91debug.t
===================================================================
--- DBIx-Class/0.08/branches/stopgap/t/91debug.t	2009-02-13 14:47:56 UTC (rev 5468)
+++ DBIx-Class/0.08/branches/release_0.080/t/91debug.t	2009-04-05 13:51:03 UTC (rev 5855)
@@ -58,7 +58,7 @@
     my @cds = $schema->resultset('CD')->search( { artist => 1, cdid => { -between => [ 1, 3 ] }, } );
     is_same_sql_bind (
         $sql, \@bind,
-        q/SELECT me.cdid, me.artist, me.title, me.year FROM cd me WHERE ( artist = ? AND cdid BETWEEN ? AND ? )/,
+        q/SELECT me.cdid, me.artist, me.title, me.year FROM cd me WHERE ( artist = ? AND (cdid BETWEEN ? AND ?) )/,
         [qw/'1' '1' '3'/],
         'got correct SQL with all bind parameters'
     );

Modified: DBIx-Class/0.08/branches/release_0.080/t/95sql_maker_quote.t
===================================================================
--- DBIx-Class/0.08/branches/stopgap/t/95sql_maker_quote.t	2009-02-13 14:47:56 UTC (rev 5468)
+++ DBIx-Class/0.08/branches/release_0.080/t/95sql_maker_quote.t	2009-04-05 13:51:03 UTC (rev 5855)
@@ -84,13 +84,12 @@
 
     is_same_sql_bind(
         $sql, \@bind,
-        q/SELECT `me`.`cdid`, `me`.`artist`, `me`.`title`, `me`.`year` FROM `cd` `me` ORDER BY `year DESC`/, [],
+        q/SELECT `me`.`cdid`, `me`.`artist`, `me`.`title`, `me`.`year` FROM `cd` `me` ORDER BY `year` DESC/, [],
         'scalar ORDER BY okay (single value)'
     );
 }
 
 TODO: {
-    local $TODO = "select attr with star needs fixing (mst/nate)";
 
     ($sql, @bind) = $sql_maker->select(
           [