From 96c1be2cfbe83688a0e6f6560dacfb57a296f879 Mon Sep 17 00:00:00 2001 From: Greg Sabino Mullane Date: Mon, 23 Jun 2014 10:44:39 -0400 Subject: [PATCH] Fix up test test; better version output too. --- t/10-object-names.t | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/t/10-object-names.t b/t/10-object-names.t index 8c3262478..a15a04a4a 100644 --- a/t/10-object-names.t +++ b/t/10-object-names.t @@ -13,10 +13,11 @@ use lib 't','.'; use DBD::Pg; use Test::More; -(my $dbdpgversion = $DBD::Pg::VERSION) =~ s/^(\d+).*/$1/; +my $dbdpgversion = $DBD::Pg::VERSION; +(my $majorversion = $dbdpgversion) =~ s/^(\d+).*/$1/; -if (! $dbdpgversion < 3) { - plan (skip_all => 'Test skipped unless DBD::Pg is version 3 or higher'); +if ($majorversion < 3) { + plan (skip_all => "Test skipped unless DBD::Pg is version 3 or higher: this is $dbdpgversion"); } plan tests => 20; -- 2.39.5