[DBD::Pg 2/2] Add tests for version differences back in

[dbdpg-commits]

Committed by Greg Sabino Mullane <g...@endpoint.com>

Subject: [DBD::Pg 2/2] Add tests for version differences back in

---
 t/00_release.t | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/t/00_release.t b/t/00_release.t
index 3b70a92..0ae6ead 100644
--- a/t/00_release.t
+++ b/t/00_release.t
@@ -40,14 +40,18 @@ my $lastversion = '?';
 
 for my $file (sort keys %filelist) {
        my ($expected,$regexlist) = @{ $filelist{$file} };
-       #diag "Want file $file to have $expected";
 
        my $instances = 0;
        open my $fh, '<', $file or die qq{Could not open "$file": $!\n};
   SLURP: while (<$fh>) {
                for my $regex (@{ $regexlist }) {
                        if ($_ =~ /$regex/) {
-                               push @{$v{$file}} => [$1, $.];
+                               my $foundversion = $1;
+                               push @{$v{$file}} => [$foundversion, $.];
+                               if ($lastversion =~ /\d/ and $foundversion ne 
$lastversion) {
+                                       $goodversion = 0;
+                               }
+                               $lastversion = $foundversion;
                                $instances++;
                                last SLURP if $file eq 'Changes'; ## Only the 
top version please
                        }
-- 
1.8.4