Dev release with diagnostics for mysterious test failures

diff --git a/Changes b/Changes
index 2a66973..b4f7116 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,10 @@
 Changes for SQL::Translator
 
+0.11023_01 2017-12-07
+
+ * Add diagnostics to t/postgresql-rename-table-and-field.t that's
+   failing mysteriously on some smokers
+
 0.11023 2017-12-05
 
  * Fix error handling for Test::PostgreSQL 1.20

diff --git a/lib/SQL/Translator.pm b/lib/SQL/Translator.pm
index 409ace9..db40268 100644 (file)
--- a/lib/SQL/Translator.pm
+++ b/lib/SQL/Translator.pm
@@ -3,7 +3,8 @@ package SQL::Translator;
 use Moo;
 our ( $DEFAULT_SUB, $DEBUG, $ERROR );
 
-our $VERSION  = '0.11023';
+our $VERSION  = '0.11023_01';
+$VERSION =~ tr/_//d;
 $DEBUG    = 0 unless defined $DEBUG;
 $ERROR    = "";
 

diff --git a/t/postgresql-rename-table-and-field.t b/t/postgresql-rename-table-and-field.t
index 564f7ad..f66b7f8 100644 (file)
--- a/t/postgresql-rename-table-and-field.t
+++ b/t/postgresql-rename-table-and-field.t
@@ -8,6 +8,7 @@ use Test::Exception;
 use Test::SQL::Translator;
 use SQL::Translator;
 use SQL::Translator::Diff;
+use Digest;
 
 maybe_plan(undef, 'DBD::Pg');
 
@@ -18,6 +19,11 @@ if ($ENV{DBICTEST_PG_DSN}) {
 else {
     no warnings 'once';
     maybe_plan(undef, 'Test::PostgreSQL');
+    open my $fh, '<:raw', $INC{"Test/PostgreSQL.pm"} or die "No Test::PostgreSQL: $!\n";
+    my $d = Digest->new('MD5');
+    $d->addfile($fh);
+    diag sprintf "Test::PostgreSQL %s found at %s (md5: %s)",
+        Test::PostgreSQL->VERSION, $INC{"Test/PostgreSQL.pm"}, $d->hexdigest;
     $pg_tst = eval { Test::PostgreSQL->new }
         or plan skip_all => "Can't create test database: $Test::PostgreSQL::errstr";
     $dsn = $pg_tst->dsn;