summaryrefslogtreecommitdiff
path: root/lib/version.t
diff options
context:
space:
mode:
authorSteve Peters <steve@fisharerojo.org>2005-12-03 03:30:00 +0000
committerSteve Peters <steve@fisharerojo.org>2005-12-03 03:30:00 +0000
commit43eaf59d25f22137101201b9df220432655a6cc2 (patch)
treea696ce2b54f5636550d6dd704b71d05602a17228 /lib/version.t
parent23c2666825f6d4396328e332025722d15959b207 (diff)
downloadperl-43eaf59d25f22137101201b9df220432655a6cc2.tar.gz
Upgrade to version-0.50
p4raw-id: //depot/perl@26246
Diffstat (limited to 'lib/version.t')
-rw-r--r--lib/version.t11
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};