diff options
| author | John Peacock <jpeacock@rowman.com> | 2004-07-12 19:16:51 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-07-13 08:27:11 +0000 |
| commit | d2397f31c862eda39e662addb6f45fa6fe0550fe (patch) | |
| tree | 0abd89c532e7c6fea09cf98b09db4cb5aec825e4 /lib/version.t | |
| parent | d52b7888e9c3eb0ccb038b7c44075ba28e8fefa6 (diff) | |
| download | perl-d2397f31c862eda39e662addb6f45fa6fe0550fe.tar.gz | |
was Re: UNIVERSAL::VERSION causing "Use of uninitialized value..." warning
Message-ID: <40F35423.5080304@rowman.com>
p4raw-id: //depot/perl@23088
Diffstat (limited to 'lib/version.t')
| -rw-r--r-- | lib/version.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/version.t b/lib/version.t index c91d988c23..b9dbf04c7c 100644 --- a/lib/version.t +++ b/lib/version.t @@ -4,7 +4,7 @@ ######################### -use Test::More tests => 168; +use Test::More tests => 170; diag "Tests with base class" unless $ENV{PERL_CORE}; @@ -222,6 +222,8 @@ sub BaseTests { diag "testing CVS Revision" unless $ENV{PERL_CORE}; $version = new version qw$Revision: 1.2$; ok ( $version eq "1.2.0", 'qw$Revision: 1.2$ eq 1.2.0' ); + $version = new version qw$Revision: 1.2.3.4$; + ok ( $version eq "1.2.3.4", 'qw$Revision: 1.2.3.4$ eq 1.2.3.4' ); # test reformed UNIVERSAL::VERSION diag "Replacement UNIVERSAL::VERSION tests" unless $ENV{PERL_CORE}; |