10 # Can't require test.pl, as we're testing the use/require mechanism here.
15 my ($type, $got, $expected, $name) = @_;
19 $result = $got eq $expected;
20 } elsif ($type eq 'isnt') {
21 $result = $got ne $expected;
22 } elsif ($type eq 'like') {
23 $result = $got =~ $expected;
25 die "Unexpected type '$type'$name";
29 print "ok $test - $name\n";
35 print "not ok $test - $name\n";
37 print "not ok $test\n";
39 my @caller = caller(2);
40 print "# Failed test at $caller[1] line $caller[2]\n";
41 print "# Got '$got'\n";
43 print "# Expected '$expected'\n";
44 } elsif ($type eq 'isnt') {
45 print "# Expected not '$expected'\n";
46 } elsif ($type eq 'like') {
47 print "# Expected $expected\n";
64 eval "use 5.000"; # implicit semicolon
71 like ($@, qr/Perl v6\.0\.0 required--this is only \Q$^V\E, stopped/);
77 like ($@, qr/Perls since v5\.0\.0 too modern--this is \Q$^V\E, stopped/);
79 eval sprintf "use %.6f;", $];
83 eval sprintf "use %.6f;", $] - 0.000001;
86 eval sprintf("use %.6f;", $] + 1);
87 like ($@, qr/Perl v6.\d+.\d+ required--this is only \Q$^V\E, stopped/);
89 eval sprintf "use %.6f;", $] + 0.00001;
90 like ($@, qr/Perl v5.\d+.\d+ required--this is only \Q$^V\E, stopped/);
92 { use lib } # check that subparse saves pending tokens
94 local $lib::VERSION = 1.0;
106 eval "use lib 0.9 qw(fred)";
109 if ($^O eq 'MacOS') {
110 is($INC[0], ":fred:");
115 eval "use lib 1.0 qw(joe)";
119 if ($^O eq 'MacOS') {
120 is($INC[0], ":joe:");
126 eval "use lib 1.01 qw(freda)";
129 if ($^O eq 'MacOS') {
130 isnt($INC[0], ":freda:");
132 isnt($INC[0], "freda");
136 local $lib::VERSION = 35.36;
137 eval "use lib v33.55";
140 eval "use lib v100.105";
141 like ($@, qr/lib version 100.105 \(v100\.105\.0\) required--this is only version 35.360 \(v35\.360\.0\)/);
143 eval "use lib 33.55";
146 eval "use lib 100.105";
147 like ($@, qr/lib version 100.105 \(v100\.105\.0\) required--this is only version 35.360 \(v35\.360\.0\)/);
149 local $lib::VERSION = '35.36';
150 eval "use lib v33.55";
153 eval "use lib v100.105";
154 like ($@, qr/lib version 100.105 \(v100\.105\.0\) required--this is only version 35.360 \(v35\.360\.0\)/);
156 eval "use lib 33.55";
159 eval "use lib 100.105";
160 like ($@, qr/lib version 100.105 \(v100\.105\.0\) required--this is only version 35.360 \(v35\.360\.0\)/);
162 local $lib::VERSION = v35.36;
163 eval "use lib v33.55";
166 eval "use lib v100.105";
167 like ($@, qr/lib version 100.105 \(v100\.105\.0\) required--this is only version 35.036000 \(v35\.36\.0\)/);
169 eval "use lib 33.55";
172 eval "use lib 100.105";
173 like ($@, qr/lib version 100.105 \(v100\.105\.0\) required--this is only version 35.036000 \(v35\.36\.0\)/);
178 # Regression test for patch 14937:
179 # Check that a .pm file with no package or VERSION doesn't core.
180 open F, ">xxx.pm" or die "Cannot open xxx.pm: $!\n";
183 eval "use lib '.'; use xxx 3;";
184 like ($@, qr/^xxx defines neither package nor VERSION--version check failed at/);
188 my @ver = split /\./, sprintf "%vd", $^V;
190 foreach my $index (-3..+3) {
191 foreach my $v (0, 1) {
195 # Jiggle one of the parts down
196 --$parts[-$index - 1];
198 # Jiggle one of the parts up
199 ++$parts[$index - 1];
202 my $v_version = sprintf "v%d.%d.%d", @parts;
205 $version = $v_version;
207 $version = $parts[0] + $parts[1] / 1000 + $parts[2] / 1000000;
214 qr/Perl $v_version required--this is only \Q$^V\E, stopped/,
217 # The present or past
218 is ($@, '', "use $version");
223 # The present or past
225 qr/Perls since $v_version too modern--this is \Q$^V\E, stopped/,
229 is ($@, '', "no $version");