Fixed test library

diff --git a/Makefile.PL b/Makefile.PL
index 1eb3120621b205915e6feb875eda9048142e6ea8..252c49801ad26e97fda014233630db8764802fb6 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -11,11 +11,11 @@ WriteMakefile(
     PREREQ_PM => {
         'Test::More' => 0,
         'version'    => 0,
     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,
         '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-*' },
     },
     dist                => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
     clean               => { FILES => 'DBIx-Class-ResultSet-RecursiveUpdate-*' },

diff --git a/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm b/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm
index 1bc5aaee4ea514fe245368b8b559d0765316790f..ca6a40da24eab5247e5ae6061d2574ef9b3a9360 100644 (file)
--- a/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm
+++ b/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm
@@ -2,7 +2,7 @@ use strict;
 use warnings;
 package DBIx::Class::ResultSet::RecursiveUpdate;
 
 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);
 
 
 use base qw(DBIx::Class::ResultSet);
 

diff --git a/t/lib/DBSchema.pm b/t/lib/DBSchema.pm
index e72915541475c51af4f6e74e160743d516eeba49..f44ee458fdfa6babc17915f54b7372ef01ed1776 100644 (file)
--- a/t/lib/DBSchema.pm
+++ b/t/lib/DBSchema.pm
@@ -15,7 +15,7 @@ sub get_test_schema {
     $dsn ||= 'dbi:SQLite:dbname=t/var/dvdzbr.db';
     warn "testing $dsn";
     my $schema = __PACKAGE__->connect( $dsn, $user, $pass, {} );
     $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', ''],
     $schema->populate('User', [
         [ qw/username name password / ],
         [ 'jgda', 'Jonas Alves', ''],

diff --git a/t/lib/DBSchema/Result/Dvdtag.pm b/t/lib/DBSchema/Result/Dvdtag.pm
index 77521bc87ded50f49a40654df5aab0a54fa0efdb..d17066aff0e82b4b5b4005a5d15075d58be3d652 100644 (file)
--- a/t/lib/DBSchema/Result/Dvdtag.pm
+++ b/t/lib/DBSchema/Result/Dvdtag.pm
@@ -14,8 +14,8 @@ __PACKAGE__->add_columns(
     "tag" => { data_type => 'integer' },
 );
 __PACKAGE__->set_primary_key("dvd", "tag");
     "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;
 
 
 1;
 

diff --git a/t/sqlite.t b/t/sqlite.t
index 4517ccffa3bb17724c15f39d2005bc8a810dc7cf..2d2a041416e64b7ead8eaf672176abed7536938a 100644 (file)
--- a/t/sqlite.t
+++ b/t/sqlite.t
@@ -5,6 +5,7 @@ use DBSchema;
 use RunTests;
 use Test::More;
 
 use RunTests;
 use Test::More;
 

+unlink 't/var/dvdzbr.db';

 my $schema = DBSchema::get_test_schema();
 run_tests( $schema );
 
 my $schema = DBSchema::get_test_schema();
 run_tests( $schema );
 

diff --git a/t/var/dvdzbr.db b/t/var/dvdzbr.db
index 9a0af95f433be0839af4d3eaa758a2d359d7b1e2..318983a2c0da7f687115882d1ffb28ea29b02613 100644 (file)
Binary files a/t/var/dvdzbr.db and b/t/var/dvdzbr.db differ