diff options
Diffstat (limited to 'gnu/usr.bin/perl/lib/version/t')
| -rw-r--r-- | gnu/usr.bin/perl/lib/version/t/01base.t | 14 | ||||
| -rw-r--r-- | gnu/usr.bin/perl/lib/version/t/02derived.t | 2 | ||||
| -rw-r--r-- | gnu/usr.bin/perl/lib/version/t/03require.t | 2 | ||||
| -rw-r--r-- | gnu/usr.bin/perl/lib/version/t/05sigdie.t | 2 | ||||
| -rw-r--r-- | gnu/usr.bin/perl/lib/version/t/06noop.t | 2 | ||||
| -rw-r--r-- | gnu/usr.bin/perl/lib/version/t/07locale.t | 4 | ||||
| -rw-r--r-- | gnu/usr.bin/perl/lib/version/t/coretests.pm | 12 |
7 files changed, 7 insertions, 31 deletions
diff --git a/gnu/usr.bin/perl/lib/version/t/01base.t b/gnu/usr.bin/perl/lib/version/t/01base.t index 9aa8052a303..f5784cd568c 100644 --- a/gnu/usr.bin/perl/lib/version/t/01base.t +++ b/gnu/usr.bin/perl/lib/version/t/01base.t @@ -9,7 +9,7 @@ use Test::More qw/no_plan/; BEGIN { (my $coretests = $0) =~ s'[^/]+\.t'coretests.pm'; require $coretests; - use_ok('version', 0.9902); + use_ok('version', 0.97); } diag "Tests with base class" unless $ENV{PERL_CORE}; @@ -32,15 +32,3 @@ my $v = eval { return IO::Handle->VERSION; }; ok defined($v), 'Fix for RT #47980'; - -{ # https://rt.cpan.org/Ticket/Display.html?id=81085 - eval { version::new() }; - like $@, qr'Usage: version::new\(class, version\)', - 'No bus err when called as function'; - eval { $x = 1; print version::new }; - like $@, qr'Usage: version::new\(class, version\)', - 'No implicit object creation when called as function'; - eval { $x = "version"; print version::new }; - like $@, qr'Usage: version::new\(class, version\)', - 'No implicit object creation when called as function'; -} diff --git a/gnu/usr.bin/perl/lib/version/t/02derived.t b/gnu/usr.bin/perl/lib/version/t/02derived.t index c7afe0f9af8..3ea847eb140 100644 --- a/gnu/usr.bin/perl/lib/version/t/02derived.t +++ b/gnu/usr.bin/perl/lib/version/t/02derived.t @@ -10,7 +10,7 @@ use File::Temp qw/tempfile/; BEGIN { (my $coretests = $0) =~ s'[^/]+\.t'coretests.pm'; require $coretests; - use_ok("version", 0.9902); + use_ok("version", 0.97); # If we made it this far, we are ok. } diff --git a/gnu/usr.bin/perl/lib/version/t/03require.t b/gnu/usr.bin/perl/lib/version/t/03require.t index 66c6bd3a85b..90d33ebabeb 100644 --- a/gnu/usr.bin/perl/lib/version/t/03require.t +++ b/gnu/usr.bin/perl/lib/version/t/03require.t @@ -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.9902, "Make sure we have the correct class"; +is $version::VERSION, 0.99, "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()"); diff --git a/gnu/usr.bin/perl/lib/version/t/05sigdie.t b/gnu/usr.bin/perl/lib/version/t/05sigdie.t index 188f185587a..2a333392e5e 100644 --- a/gnu/usr.bin/perl/lib/version/t/05sigdie.t +++ b/gnu/usr.bin/perl/lib/version/t/05sigdie.t @@ -15,7 +15,7 @@ BEGIN { BEGIN { - use version 0.9902; + use version 0.97; } pass "Didn't get caught by the wrong DIE handler, which is a good thing"; diff --git a/gnu/usr.bin/perl/lib/version/t/06noop.t b/gnu/usr.bin/perl/lib/version/t/06noop.t index 9d113ed6e41..63f707300b1 100644 --- a/gnu/usr.bin/perl/lib/version/t/06noop.t +++ b/gnu/usr.bin/perl/lib/version/t/06noop.t @@ -7,7 +7,7 @@ use Test::More qw/no_plan/; BEGIN { - use_ok('version', 0.9902); + use_ok('version', 0.97); } my $v1 = version->new('1.2'); diff --git a/gnu/usr.bin/perl/lib/version/t/07locale.t b/gnu/usr.bin/perl/lib/version/t/07locale.t index 3b67f3d77af..506b1bf50f8 100644 --- a/gnu/usr.bin/perl/lib/version/t/07locale.t +++ b/gnu/usr.bin/perl/lib/version/t/07locale.t @@ -8,15 +8,13 @@ use File::Basename; use File::Temp qw/tempfile/; use POSIX qw/locale_h/; use Test::More tests => 7; -use Config; BEGIN { - use_ok('version', 0.9902); + use_ok('version', 0.97); } SKIP: { skip 'No locale testing for Perl < 5.6.0', 6 if $] < 5.006; - skip 'No locale testing without d_setlocale', 6 if(!$Config{d_setlocale}); # test locale handling my $warning; local $SIG{__WARN__} = sub { $warning = $_[0] }; diff --git a/gnu/usr.bin/perl/lib/version/t/coretests.pm b/gnu/usr.bin/perl/lib/version/t/coretests.pm index 15a1f1ff8c9..3f785e47263 100644 --- a/gnu/usr.bin/perl/lib/version/t/coretests.pm +++ b/gnu/usr.bin/perl/lib/version/t/coretests.pm @@ -505,7 +505,6 @@ EOF } { - local $Data::Dumper::Sortkeys= 1; # http://rt.cpan.org/Public/Bug/Display.html?id=30004 my $v1 = $CLASS->$method("v0.1_1"); (my $alpha1 = Dumper($v1)) =~ s/.+'alpha' => ([^,]+),.+/$1/ms; @@ -539,10 +538,9 @@ EOF { # https://rt.cpan.org/Ticket/Display.html?id=72365 # https://rt.perl.org/rt3/Ticket/Display.html?id=102586 - # https://rt.cpan.org/Ticket/Display.html?id=78328 eval 'my $v = $CLASS->$method("version")'; like $@, qr/Invalid version format/, - "The string 'version' is not a version for $method"; + 'The string "version" is not a version'; eval 'my $v = $CLASS->$method("ver510n")'; like $@, qr/Invalid version format/, 'All strings starting with "v" are not versions'; @@ -595,14 +593,6 @@ SKIP: { eval { _112478->VERSION(9e99) }; unlike $@, qr/panic/, '->VERSION(9e99) does not panic'; } - - { # https://rt.cpan.org/Ticket/Display.html?id=79259 - my $v = $CLASS->new("0.52_0"); - ok $v->is_alpha, 'Just checking'; - is $v->numify, '0.520', 'Correctly nummified'; - } - } 1; - |