From: zby Date: Mon, 20 Apr 2009 00:11:07 +0000 (+0000) Subject: Fixed test library X-Git-Url: https://git.brokenzipper.com/gitweb?a=commitdiff_plain;h=16e1ee87cb8acef90879b5276b318201fe82c802;p=chaz%2Fp5-DBIx-Class-ResultSet-RecursiveUpdate Fixed test library --- diff --git a/Makefile.PL b/Makefile.PL index 1eb3120..252c498 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -11,11 +11,11 @@ WriteMakefile( 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-*' }, diff --git a/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm b/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm index 1bc5aae..ca6a40d 100644 --- 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 version; our $VERSION = qv('0.004'); +use version; our $VERSION = qv('0.005'); use base qw(DBIx::Class::ResultSet); diff --git a/t/lib/DBSchema.pm b/t/lib/DBSchema.pm index e729155..f44ee45 100644 --- 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, {} ); - $schema->deploy({ add_drop_table => 1, }); + $schema->deploy({ }); $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 77521bc..d17066a 100644 --- 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"); -__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; diff --git a/t/sqlite.t b/t/sqlite.t index 4517ccf..2d2a041 100644 --- a/t/sqlite.t +++ b/t/sqlite.t @@ -5,6 +5,7 @@ use DBSchema; use RunTests; use Test::More; +unlink 't/var/dvdzbr.db'; my $schema = DBSchema::get_test_schema(); run_tests( $schema ); diff --git a/t/var/dvdzbr.db b/t/var/dvdzbr.db index 9a0af95..318983a 100644 Binary files a/t/var/dvdzbr.db and b/t/var/dvdzbr.db differ