Integrate CPAN version.pm release into core

[perl5.git] / cpan / version / t / 02derived.t

diff --git a/cpan/version/t/02derived.t b/cpan/version/t/02derived.t
index 6ed9524..8cf2743 100644 (file)
--- a/cpan/version/t/02derived.t
+++ b/cpan/version/t/02derived.t
@@ -10,19 +10,19 @@ use File::Temp qw/tempfile/;
 BEGIN {
     (my $coretests = $0) =~ s'[^/]+\.t'coretests.pm';
     require $coretests;
 BEGIN {
     (my $coretests = $0) =~ s'[^/]+\.t'coretests.pm';
     require $coretests;

-    use_ok("version", 0.9904);
+    use_ok("version", 0.9905);

     # If we made it this far, we are ok.
 }
 
 use lib qw/./;
 
 package version::Bad;
     # If we made it this far, we are ok.
 }
 
 use lib qw/./;
 
 package version::Bad;

-use base 'version';
+use parent 'version';

 sub new { my($self,$n)=@_;  bless \$n, $self }
 
 # Bad subclass for SemVer failures seen with pure Perl version.pm only
 package version::Bad2;
 sub new { my($self,$n)=@_;  bless \$n, $self }
 
 # Bad subclass for SemVer failures seen with pure Perl version.pm only
 package version::Bad2;

-use base 'version';
+use parent 'version';

 sub new {
     my ($class, $val) = @_;
     die 'Invalid version string format' unless version::is_strict($val);
 sub new {
     my ($class, $val) = @_;
     die 'Invalid version string format' unless version::is_strict($val);


@@ -45,7 +45,7 @@ my ($fh, $filename) = tempfile('tXXXXXXX', SUFFIX => '.pm', UNLINK => 1);
 print $fh <<"EOF";
 # This is an empty subclass
 package $package;
 print $fh <<"EOF";
 # This is an empty subclass
 package $package;

-use base 'version';
+use parent 'version';

 use vars '\$VERSION';
 \$VERSION=0.001;
 EOF
 use vars '\$VERSION';
 \$VERSION=0.001;
 EOF