diff options
| author | John Peacock <jpeacock@rowman.com> | 2007-10-02 01:28:31 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-10-02 11:56:28 +0000 |
| commit | d1029faac9d1305e60db4bf8c9ec1552b40d4f64 (patch) | |
| tree | 6c23eb57975ab4e3d36ed33353f43fe19106180a /t | |
| parent | d91ed1da0761be78f6c84257e79636bc2a7a1b8f (diff) | |
| download | perl-d1029faac9d1305e60db4bf8c9ec1552b40d4f64.tar.gz | |
was Re: Freeze ?
Message-ID: <47020F3F.9070604@havurah-software.org>
p4raw-id: //depot/perl@32003
Diffstat (limited to 't')
| -rwxr-xr-x | t/comp/use.t | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/t/comp/use.t b/t/comp/use.t index 41f3bde764..a43bbeb44c 100755 --- a/t/comp/use.t +++ b/t/comp/use.t @@ -6,7 +6,7 @@ BEGIN { $INC{"feature.pm"} = 1; # so we don't attempt to load feature.pm } -print "1..59\n"; +print "1..63\n"; # Can't require test.pl, as we're testing the use/require mechanism here. @@ -77,6 +77,18 @@ is ($@, ''); eval "no 5.000;"; like ($@, qr/Perls since v5\.0\.0 too modern--this is \Q$^V\E, stopped/); +eval "use 5.6;"; +like ($@, qr/Perl v5\.600\.0 required \(did you mean v5\.6\.0\?\)--this is only \Q$^V\E, stopped/); + +eval "use 5.8;"; +like ($@, qr/Perl v5\.800\.0 required \(did you mean v5\.8\.0\?\)--this is only \Q$^V\E, stopped/); + +eval "use 5.9;"; +like ($@, qr/Perl v5\.900\.0 required \(did you mean v5\.9\.0\?\)--this is only \Q$^V\E, stopped/); + +eval "use 5.10;"; +like ($@, qr/Perl v5\.100\.0 required \(did you mean v5\.10\.0\?\)--this is only \Q$^V\E, stopped/); + eval sprintf "use %.6f;", $]; is ($@, ''); |