diff options
author | Steve Peters <steve@fisharerojo.org> | 2005-12-03 03:30:00 +0000 |
---|---|---|
committer | Steve Peters <steve@fisharerojo.org> | 2005-12-03 03:30:00 +0000 |
commit | 43eaf59d25f22137101201b9df220432655a6cc2 (patch) | |
tree | a696ce2b54f5636550d6dd704b71d05602a17228 /lib/version.t | |
parent | 23c2666825f6d4396328e332025722d15959b207 (diff) | |
download | perl-43eaf59d25f22137101201b9df220432655a6cc2.tar.gz |
Upgrade to version-0.50
p4raw-id: //depot/perl@26246
Diffstat (limited to 'lib/version.t')
-rw-r--r-- | lib/version.t | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lib/version.t b/lib/version.t index c60d6563f1..8a8c209db2 100644 --- a/lib/version.t +++ b/lib/version.t @@ -4,12 +4,12 @@ ######################### -use Test::More tests => 200; +use Test::More tests => 202; diag "Tests with base class" unless $ENV{PERL_CORE}; BEGIN { - use_ok("version", 0.47); # If we made it this far, we are ok. + use_ok("version", 0.50); # If we made it this far, we are ok. } BaseTests("version"); @@ -17,10 +17,10 @@ BaseTests("version"); diag "Tests with empty derived class" unless $ENV{PERL_CORE}; package version::Empty; -use vars qw($VERSION @ISA); -use version; -@ISA = qw(version); +use base version; $VERSION = 0.01; +no warnings 'redefine'; +*::qv = sub { return bless version::qv(shift), __PACKAGE__; }; package version::Bad; use base version; @@ -235,6 +235,7 @@ sub BaseTests { ok ( $version eq "1.2.0", 'qv("1.2") eq "1.2.0"' ); $version = qv(1.2); ok ( $version eq "1.2.0", 'qv(1.2) eq "1.2.0"' ); + isa_ok( qv('5.008'), $CLASS ); # test creation from existing version object diag "create new from existing version" unless $ENV{PERL_CORE}; |