Groups | Search | Server Info | Login | Register

Groups > perl.dbd.pg.changes > #3

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

Show key headers only | View raw

Committed by Greg Sabino Mullane <greg@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

Back to perl.dbd.pg.changes | Previous | Next — Previous in thread | Find similar

Thread

[DBD::Pg 1/2] Note need to get rid of 'adsrc' references dbdpg-commits@bucardo.org - 2015-08-19 19:38 +0000
  [DBD::Pg 2/2] Add tests for version differences back in dbdpg-commits@bucardo.org - 2015-08-19 19:38 +0000

csiph-web