X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F44_upgrade_db.t;h=b7a3c614ed4d0f20c120ebe20fea14ce39b1fc1f;hb=f709c026313d42f871c079f0b961d14a1bf4d499;hp=4d943d581f4264c7e112fe7e4fd8a344095fac2a;hpb=9c87a079060af9b367681cd1f96d0abd36745836;p=dbsrgits%2FDBM-Deep.git

diff --git a/t/44_upgrade_db.t b/t/44_upgrade_db.t
index 4d943d5..b7a3c61 100644
--- a/t/44_upgrade_db.t
+++ b/t/44_upgrade_db.t
@@ -87,6 +87,7 @@ foreach my $input_filename (
 
     foreach my $v ( @output_versions ) {
         my (undef, $output_filename) = new_fh();
+
         my $output = run_prog(
             $PROG,
             "-input $input_filename",
@@ -94,7 +95,7 @@ foreach my $input_filename (
             "-version $v",
         );
 
-        #warn "Testing $input_filename against $v\n";
+        warn "Testing $input_filename against $v\n";
 
         # Clone was removed as a requirement in 1.0006
         if ( $output =~ /Can\'t locate Clone\.pm in \@INC/ ) {
@@ -125,12 +126,12 @@ foreach my $input_filename (
 
         # Now, read the output file with the right version.
         ok( !$output, "A successful run produces no output" );
-        die "$output\n" if $output;
+        die "'$input_filename' -> '$v' : $output\n" if $output;
 
         my $db;
         if ( $v =~ /^1\.001[0-4]/ || $v =~ /^1\.000[3-9]/ ) {
             push @INC, 'lib';
-            eval "use DBM::Deep";
+            eval "use DBM::Deep $v"; die $@ if $@;
             $db = DBM::Deep->new( $output_filename );
         }
         elsif ( $v =~ /^1\.000?[0-2]?/ ) {