[Bast-commits] r5388 - in DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t: . lib var

[zby at dev.catalyst.perl.org]

Author: zby
Date: 2009-01-30 16:53:24 +0000 (Fri, 30 Jan 2009)
New Revision: 5388

Modified:
   DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/lib/RunTests.pm
   DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/sqlite.t
   DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/var/dvdzbr.db
Log:
code for resolving - fix

Modified: DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/lib/RunTests.pm
===================================================================
--- DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/lib/RunTests.pm	2009-01-30 16:51:43 UTC (rev 5387)
+++ DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/lib/RunTests.pm	2009-01-30 16:53:24 UTC (rev 5388)
@@ -20,6 +20,7 @@
     
     my $updates;
     $updates = {
+        id => undef,
             name => 'Test name 2',
             viewings => [ { user_id => $owner->id } ],
             owner => { id => $owner->id },
@@ -37,6 +38,7 @@
 ;    
     # creating new records
     my $updates = {
+        id => undef,
             aaaa => undef,
             tags => [ '2', { id => '3' } ], 
             name => 'Test name',

Modified: DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/sqlite.t
===================================================================
--- DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/sqlite.t	2009-01-30 16:51:43 UTC (rev 5387)
+++ DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/sqlite.t	2009-01-30 16:53:24 UTC (rev 5388)
@@ -4,7 +4,7 @@
 use DBSchema;
 use RunTests;
 use Test::More;
-plan tests => 19;
+plan tests => 23;
 
 my $schema = DBSchema::get_test_schema();
 run_tests( $schema );

Modified: DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/var/dvdzbr.db
===================================================================
(Binary files differ)