This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove no longer valid tests
authorJohn Peacock <jpeacock@cpan.org>
Thu, 18 Feb 2016 14:23:08 +0000 (08:23 -0600)
committerRicardo Signes <rjbs@cpan.org>
Fri, 18 Mar 2016 00:51:17 +0000 (20:51 -0400)
t/lib/warnings/sv
t/op/packagev.t
t/op/sprintf.t

index 3d396ef..5ddd4fe 100644 (file)
@@ -397,16 +397,6 @@ EXPECT
 Subroutine main::f렏 redefined at - line 7.
 ########
 # sv.c
-sprintf "%vd", new version v1.1_0;
-use warnings 'printf' ;
-sprintf "%vd", new version v1.1_0;
-no warnings 'printf' ;
-sprintf "%vd", new version v1.1_0;
-EXPECT
-vector argument not supported with alpha versions at - line 2.
-vector argument not supported with alpha versions at - line 4.
-########
-# sv.c
 my $x = "a_c";
 ++$x;
 use warnings "numeric";
index 86fb462..d485f58 100644 (file)
@@ -166,9 +166,6 @@ v01.02.03   fail    pass    pass    no leading zeros
 1.02_03                fail    pass    pass    underscore
 v1.2_3         fail    pass    pass    underscore
 v1.02_03       fail    pass    pass    underscore
-v1.2_3_4       fail    fail    fail    underscore
-v1.2_3.4       fail    fail    fail    underscore
-1.2_3.4                fail    fail    fail    underscore
 0_             fail    fail    na      underscore
 1_             fail    fail    na      underscore
 1_.            fail    fail    na      underscore
index c6550d0..7ccb88d 100644 (file)
@@ -338,7 +338,6 @@ __END__
 >%vd<       >[version->new("1.002")]< >1.2<
 >%vd<       >[version->new("1048576.5")]< >1048576.5<
 >%vd<       >[version->new("50")]< >50<
->[%vd]<     >[version->new(v1.1_1)]< >[] ALPHA<
 >%v.3d<     >"\01\02\03"< >001.002.003<
 >%0v3d<     >"\01\02\03"< >001.002.003<
 >%v.3d<     >[version::qv("1.2.3")]< >001.002.003<