diff options
| author | Steve Peters <steve@fisharerojo.org> | 2006-01-06 21:59:00 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-01-06 21:59:00 +0000 |
| commit | 34ba6322b644154d55680c95808981776852ae24 (patch) | |
| tree | aabe0a4ab0822979a1d0ba9134c969c4c9f52a53 /lib/version.t | |
| parent | 29ecdb6fa31693daf50c1386a8ec5d92fb7b0313 (diff) | |
| download | perl-34ba6322b644154d55680c95808981776852ae24.tar.gz | |
Upgrade to version-0.52
p4raw-id: //depot/perl@26685
Diffstat (limited to 'lib/version.t')
| -rw-r--r-- | lib/version.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/version.t b/lib/version.t index 8a8c209db2..16f306cd82 100644 --- a/lib/version.t +++ b/lib/version.t @@ -4,7 +4,7 @@ ######################### -use Test::More tests => 202; +use Test::More qw(no_plan); diag "Tests with base class" unless $ENV{PERL_CORE}; @@ -94,6 +94,10 @@ sub BaseTests { like($@, qr/underscores before decimal/, "Invalid version format (underscores before decimal)"); + eval {my $version = $CLASS->new("1_2")}; + like($@, qr/alpha without decimal/, + "Invalid version format (alpha without decimal)"); + $version = $CLASS->new("99 and 44/100 pure"); ok ("$version" eq "99.000", '$version eq "99.000"'); ok ($version->numify == 99.0, '$version->numify == 99.0'); |