r22923 - in /branches/upstream/libdbicx-testdatabase-perl/current: ./ inc/Module/ inc/Module/Install/ lib/DBICx/
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Tue Jul 8 16:56:04 UTC 2008
Author: gregoa
Date: Tue Jul 8 16:56:04 2008
New Revision: 22923
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=22923
Log:
[svn-upgrade] Integrating new upstream version, libdbicx-testdatabase-perl (0.02)
Modified:
branches/upstream/libdbicx-testdatabase-perl/current/META.yml
branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install.pm
branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Base.pm
branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Can.pm
branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Fetch.pm
branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Makefile.pm
branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Metadata.pm
branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Win32.pm
branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/WriteAll.pm
branches/upstream/libdbicx-testdatabase-perl/current/lib/DBICx/TestDatabase.pm
Modified: branches/upstream/libdbicx-testdatabase-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbicx-testdatabase-perl/current/META.yml?rev=22923&op=diff
==============================================================================
--- branches/upstream/libdbicx-testdatabase-perl/current/META.yml (original)
+++ branches/upstream/libdbicx-testdatabase-perl/current/META.yml Tue Jul 8 16:56:04 2008
@@ -1,12 +1,13 @@
---
abstract: create a temporary database from a DBIx::Class::Schema
-author: Jonathan Rockway C<< <jrockway at cpan.org> >>
+author:
+ - Jonathan Rockway C<< <jrockway at cpan.org> >>
build_requires:
DBIx::Class: 0
Test::More: 0
ok: 0
distribution_type: module
-generated_by: Module::Install version 0.67
+generated_by: Module::Install version 0.68
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.3.html
@@ -20,4 +21,4 @@
DBD::SQLite: 0
File::Temp: 0
SQL::Translator: 0
-version: 0.01
+version: 0.02
Modified: branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install.pm?rev=22923&op=diff
==============================================================================
--- branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install.pm (original)
+++ branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install.pm Tue Jul 8 16:56:04 2008
@@ -28,7 +28,7 @@
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '0.67';
+ $VERSION = '0.68';
}
# Whether or not inc::Module::Install is actually loaded, the
Modified: branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Base.pm?rev=22923&op=diff
==============================================================================
--- branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Base.pm (original)
+++ branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Base.pm Tue Jul 8 16:56:04 2008
@@ -1,7 +1,7 @@
#line 1
package Module::Install::Base;
-$VERSION = '0.67';
+$VERSION = '0.68';
# Suspend handler for "redefined" warnings
BEGIN {
Modified: branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Can.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Can.pm?rev=22923&op=diff
==============================================================================
--- branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Can.pm (original)
+++ branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Can.pm Tue Jul 8 16:56:04 2008
@@ -11,7 +11,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.67';
+ $VERSION = '0.68';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Fetch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Fetch.pm?rev=22923&op=diff
==============================================================================
--- branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Fetch.pm (original)
+++ branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Fetch.pm Tue Jul 8 16:56:04 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.67';
+ $VERSION = '0.68';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Makefile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Makefile.pm?rev=22923&op=diff
==============================================================================
--- branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Makefile.pm (original)
+++ branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Makefile.pm Tue Jul 8 16:56:04 2008
@@ -7,7 +7,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.67';
+ $VERSION = '0.68';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Metadata.pm?rev=22923&op=diff
==============================================================================
--- branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Metadata.pm (original)
+++ branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Metadata.pm Tue Jul 8 16:56:04 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.67';
+ $VERSION = '0.68';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Win32.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Win32.pm?rev=22923&op=diff
==============================================================================
--- branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Win32.pm (original)
+++ branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/Win32.pm Tue Jul 8 16:56:04 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.67';
+ $VERSION = '0.68';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/WriteAll.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/WriteAll.pm?rev=22923&op=diff
==============================================================================
--- branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/WriteAll.pm (original)
+++ branches/upstream/libdbicx-testdatabase-perl/current/inc/Module/Install/WriteAll.pm Tue Jul 8 16:56:04 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.67';
+ $VERSION = '0.68';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: branches/upstream/libdbicx-testdatabase-perl/current/lib/DBICx/TestDatabase.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbicx-testdatabase-perl/current/lib/DBICx/TestDatabase.pm?rev=22923&op=diff
==============================================================================
--- branches/upstream/libdbicx-testdatabase-perl/current/lib/DBICx/TestDatabase.pm (original)
+++ branches/upstream/libdbicx-testdatabase-perl/current/lib/DBICx/TestDatabase.pm Tue Jul 8 16:56:04 2008
@@ -4,14 +4,14 @@
use File::Temp 'tempfile';
-our $VERSION = '0.01';
+our $VERSION = '0.02';
# avoid contaminating the schema with the tempfile
my @TMPFILES;
sub new {
my ($class, $schema_class) = @_;
-
+
eval "require $schema_class"
or die "failed to require $schema_class: $@";
@@ -29,7 +29,12 @@
# for some reason unlink after write doesn't unlink the files on
# my system
- unlink @TMPFILES;
+ if($ENV{DBIC_KEEP_TEST}){
+ print {*STDERR} "Keeping DBICx::TestDatabase databases: @TMPFILES\n";
+ }
+ else {
+ unlink @TMPFILES;
+ }
}
*connect = *new;
@@ -74,6 +79,20 @@
Alias for new.
+=head1 ENVIRONMENT
+
+You can control the behavior of this module at runtime by setting
+environment variables.
+
+=head2 DBIC_KEEP_TEST
+
+If this variable is true, then the test database will not be deleted
+at C<END> time. Instead, a message containing the paths of the test
+databases will be printed.
+
+This is good if you want to look at the database your test generated,
+for debugging.
+
=head1 AUTHOR
Jonathan Rockway C<< <jrockway at cpan.org> >>
More information about the Pkg-perl-cvs-commits
mailing list