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

[zby at dev.catalyst.perl.org]

Author: zby
Date: 2009-04-20 01:11:07 +0100 (Mon, 20 Apr 2009)
New Revision: 5913

Modified:
   DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/Makefile.PL
   DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm
   DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/lib/DBSchema.pm
   DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/lib/DBSchema/Result/Dvdtag.pm
   DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/sqlite.t
   DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/var/dvdzbr.db
Log:
Fixed test library

Modified: DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/Makefile.PL
===================================================================
--- DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/Makefile.PL	2009-04-19 14:52:15 UTC (rev 5912)
+++ DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/Makefile.PL	2009-04-20 00:11:07 UTC (rev 5913)
@@ -11,11 +11,11 @@
     PREREQ_PM => {
         'Test::More' => 0,
         'version'    => 0,
-        'DBIx::Class' => '0.08011',
+        'DBIx::Class' => '0.08100',
         'DBIx::Class::IntrospectableM2M' => 0,
         'SQL::Translator' => '0.08',
         'DateTime'   => 0,
-        'DBD::SQLite' => 0,
+        'DBD::SQLite' => '1.21',
     },
     dist                => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
     clean               => { FILES => 'DBIx-Class-ResultSet-RecursiveUpdate-*' },

Modified: DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm
===================================================================
--- DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm	2009-04-19 14:52:15 UTC (rev 5912)
+++ DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm	2009-04-20 00:11:07 UTC (rev 5913)
@@ -2,7 +2,7 @@
 use warnings;
 package DBIx::Class::ResultSet::RecursiveUpdate;
 
-use version; our $VERSION = qv('0.004');
+use version; our $VERSION = qv('0.005');
 
 use base qw(DBIx::Class::ResultSet);
 

Modified: DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/lib/DBSchema/Result/Dvdtag.pm
===================================================================
--- DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/lib/DBSchema/Result/Dvdtag.pm	2009-04-19 14:52:15 UTC (rev 5912)
+++ DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/lib/DBSchema/Result/Dvdtag.pm	2009-04-20 00:11:07 UTC (rev 5913)
@@ -14,8 +14,8 @@
     "tag" => { data_type => 'integer' },
 );
 __PACKAGE__->set_primary_key("dvd", "tag");
-__PACKAGE__->belongs_to("dvd", "Dvd", { id => "dvd" });
-__PACKAGE__->belongs_to("tag", "Tag", { id => "tag" });
+__PACKAGE__->belongs_to("dvd", "DBSchema::Result::Dvd", { id => "dvd" });
+__PACKAGE__->belongs_to("tag", "DBSchema::Result::Tag", { id => "tag" });
 
 1;
 

Modified: DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/lib/DBSchema.pm
===================================================================
--- DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/lib/DBSchema.pm	2009-04-19 14:52:15 UTC (rev 5912)
+++ DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/lib/DBSchema.pm	2009-04-20 00:11:07 UTC (rev 5913)
@@ -15,7 +15,7 @@
     $dsn ||= 'dbi:SQLite:dbname=t/var/dvdzbr.db';
     warn "testing $dsn";
     my $schema = __PACKAGE__->connect( $dsn, $user, $pass, {} );
-    $schema->deploy({ add_drop_table => 1, });
+    $schema->deploy({ });
     $schema->populate('User', [
         [ qw/username name password / ],
         [ 'jgda', 'Jonas Alves', ''],

Modified: DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/sqlite.t
===================================================================
--- DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/sqlite.t	2009-04-19 14:52:15 UTC (rev 5912)
+++ DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/sqlite.t	2009-04-20 00:11:07 UTC (rev 5913)
@@ -5,6 +5,7 @@
 use RunTests;
 use Test::More;
 
+unlink 't/var/dvdzbr.db';
 my $schema = DBSchema::get_test_schema();
 run_tests( $schema );
 

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