Test patch for version 0.97
authorJohn Peacock <john.peacock@havurah-software.org>
Thu, 29 Mar 2012 02:22:22 +0000 (22:22 -0400)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Tue, 10 Apr 2012 12:38:45 +0000 (13:38 +0100)
I had some isolated test failures with 0.96 from BSDish systems with
limited locales installed.  The attached patch brings bleadperl in line
with the CPAN 0.97 release.  I'd like to see it get into 5.16 if
possible, so that we don't have needless test failures.

Thanks

John

Signed-off-by: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
Porting/Maintainers.pl
lib/version.pm
lib/version/t/01base.t
lib/version/t/02derived.t
lib/version/t/03require.t
lib/version/t/05sigdie.t
lib/version/t/06noop.t
lib/version/t/07locale.t

index 97c5545..bef1e74 100755 (executable)
@@ -1974,7 +1974,7 @@ use File::Glob qw(:case);
 
     'version' => {
         'MAINTAINER'   => 'jpeacock',
-        'DISTRIBUTION' => 'JPEACOCK/version-0.96.tar.gz',
+        'DISTRIBUTION' => 'JPEACOCK/version-0.97.tar.gz',
         'FILES'        => q[lib/version.pm lib/version.pod lib/version],
         'EXCLUDED' => [
             qr{^t/.*\.t$},
index 65407e8..3d3af10 100644 (file)
@@ -6,7 +6,7 @@ use strict;
 
 use vars qw(@ISA $VERSION $CLASS $STRICT $LAX *declare *qv);
 
-$VERSION = 0.96;
+$VERSION = 0.97;
 
 $CLASS = 'version';
 
index f6d277f..f5784cd 100644 (file)
@@ -9,7 +9,7 @@ use Test::More qw/no_plan/;
 BEGIN {
     (my $coretests = $0) =~ s'[^/]+\.t'coretests.pm';
     require $coretests;
-    use_ok('version', 0.96);
+    use_ok('version', 0.97);
 }
 
 diag "Tests with base class" unless $ENV{PERL_CORE};
index 8ff4c17..3ea847e 100644 (file)
@@ -10,7 +10,7 @@ use File::Temp qw/tempfile/;
 BEGIN {
     (my $coretests = $0) =~ s'[^/]+\.t'coretests.pm';
     require $coretests;
-    use_ok("version", 0.96);
+    use_ok("version", 0.97);
     # If we made it this far, we are ok.
 }
 
index b137674..0d0755c 100644 (file)
@@ -14,7 +14,7 @@ BEGIN {
 # Don't want to use, because we need to make sure that the import doesn't
 # fire just yet (some code does this to avoid importing qv() and delare()).
 require_ok("version");
-is $version::VERSION, 0.96, "Make sure we have the correct class";
+is $version::VERSION, 0.97, "Make sure we have the correct class";
 ok(!"main"->can("qv"), "We don't have the imported qv()");
 ok(!"main"->can("declare"), "We don't have the imported declare()");
 
index 190fc90..2a33339 100644 (file)
@@ -15,7 +15,7 @@ BEGIN {
 
 
 BEGIN {
-    use version 0.96;
+    use version 0.97;
 }
 
 pass "Didn't get caught by the wrong DIE handler, which is a good thing";
index c3915e4..63f7073 100644 (file)
@@ -7,7 +7,7 @@
 use Test::More qw/no_plan/;
 
 BEGIN {
-    use_ok('version', 0.96);
+    use_ok('version', 0.97);
 }
 
 my $v1 = version->new('1.2');
index e5b0a81..506b1bf 100644 (file)
@@ -10,11 +10,11 @@ use POSIX qw/locale_h/;
 use Test::More tests => 7;
 
 BEGIN {
-    use_ok('version', 0.96);
+    use_ok('version', 0.97);
 }
 
 SKIP: {
-       skip 'No locale testing for Perl < 5.6.0', 6 if $] < 5.006;
+       skip 'No locale testing for Perl < 5.6.0', 6 if $] < 5.006;
        # test locale handling
        my $warning;
        local $SIG{__WARN__} = sub { $warning = $_[0] };
@@ -29,7 +29,7 @@ SKIP: {
            last if localeconv()->{decimal_point} eq ',';
        }
        skip 'Cannot test locale handling without a comma locale', 5
-           unless $loc;
+           unless $loc and localeconv()->{decimal_point} eq ',';
 
        diag ("Testing locale handling with $loc") unless $ENV{PERL_CORE};