171 lines
3.0 KiB
Perl
Executable File
171 lines
3.0 KiB
Perl
Executable File
#!./perl
|
|
|
|
BEGIN {
|
|
chdir 't' if -d 't';
|
|
unshift @INC, '../lib';
|
|
}
|
|
|
|
print "1..27\n";
|
|
|
|
my $i = 1;
|
|
eval "use 5.000"; # implicit semicolon
|
|
if ($@) {
|
|
print STDERR $@,"\n";
|
|
print "not ";
|
|
}
|
|
print "ok ",$i++,"\n";
|
|
|
|
eval "use 5.000;";
|
|
if ($@) {
|
|
print STDERR $@,"\n";
|
|
print "not ";
|
|
}
|
|
print "ok ",$i++,"\n";
|
|
|
|
eval sprintf "use %.5f;", $];
|
|
if ($@) {
|
|
print STDERR $@,"\n";
|
|
print "not ";
|
|
}
|
|
print "ok ",$i++,"\n";
|
|
|
|
|
|
eval sprintf "use %.5f;", $] - 0.000001;
|
|
if ($@) {
|
|
print STDERR $@,"\n";
|
|
print "not ";
|
|
}
|
|
print "ok ",$i++,"\n";
|
|
|
|
eval sprintf("use %.5f;", $] + 1);
|
|
unless ($@) {
|
|
print "not ";
|
|
}
|
|
print "ok ",$i++,"\n";
|
|
|
|
eval sprintf "use %.5f;", $] + 0.00001;
|
|
unless ($@) {
|
|
print "not ";
|
|
}
|
|
print "ok ",$i++,"\n";
|
|
|
|
|
|
{ use lib } # check that subparse saves pending tokens
|
|
|
|
local $lib::VERSION = 1.0;
|
|
|
|
eval "use lib 0.9";
|
|
if ($@) {
|
|
print STDERR $@,"\n";
|
|
print "not ";
|
|
}
|
|
print "ok ",$i++,"\n";
|
|
|
|
eval "use lib 1.0";
|
|
if ($@) {
|
|
print STDERR $@,"\n";
|
|
print "not ";
|
|
}
|
|
print "ok ",$i++,"\n";
|
|
|
|
eval "use lib 1.01";
|
|
unless ($@) {
|
|
print "not ";
|
|
}
|
|
print "ok ",$i++,"\n";
|
|
|
|
|
|
eval "use lib 0.9 qw(fred)";
|
|
if ($@) {
|
|
print STDERR $@,"\n";
|
|
print "not ";
|
|
}
|
|
print "ok ",$i++,"\n";
|
|
|
|
print "not " unless $INC[0] eq "fred";
|
|
print "ok ",$i++,"\n";
|
|
|
|
eval "use lib 1.0 qw(joe)";
|
|
if ($@) {
|
|
print STDERR $@,"\n";
|
|
print "not ";
|
|
}
|
|
print "ok ",$i++,"\n";
|
|
|
|
print "not " unless $INC[0] eq "joe";
|
|
print "ok ",$i++,"\n";
|
|
|
|
eval "use lib 1.01 qw(freda)";
|
|
unless ($@) {
|
|
print "not ";
|
|
}
|
|
print "ok ",$i++,"\n";
|
|
|
|
print "not " if $INC[0] eq "freda";
|
|
print "ok ",$i++,"\n";
|
|
|
|
{
|
|
local $lib::VERSION = 35.36;
|
|
eval "use lib v33.55";
|
|
print "not " if $@;
|
|
print "ok ",$i++,"\n";
|
|
|
|
eval "use lib v100.105";
|
|
unless ($@ =~ /lib version 100\.105 required--this is only version 35\.3/) {
|
|
print "not ";
|
|
}
|
|
print "ok ",$i++,"\n";
|
|
|
|
eval "use lib 33.55";
|
|
print "not " if $@;
|
|
print "ok ",$i++,"\n";
|
|
|
|
eval "use lib 100.105";
|
|
unless ($@ =~ /lib version 100\.105 required--this is only version 35\.3/) {
|
|
print "not ";
|
|
}
|
|
print "ok ",$i++,"\n";
|
|
|
|
local $lib::VERSION = '35.36';
|
|
eval "use lib v33.55";
|
|
print "not " if $@;
|
|
print "ok ",$i++,"\n";
|
|
|
|
eval "use lib v100.105";
|
|
unless ($@ =~ /lib version 100\.105 required--this is only version 35\.36/) {
|
|
print "not ";
|
|
}
|
|
print "ok ",$i++,"\n";
|
|
|
|
eval "use lib 33.55";
|
|
print "not " if $@;
|
|
print "ok ",$i++,"\n";
|
|
|
|
eval "use lib 100.105";
|
|
unless ($@ =~ /lib version 100\.105 required--this is only version 35\.36/) {
|
|
print "not ";
|
|
}
|
|
print "ok ",$i++,"\n";
|
|
|
|
local $lib::VERSION = v35.36;
|
|
eval "use lib v33.55";
|
|
print "not " if $@;
|
|
print "ok ",$i++,"\n";
|
|
|
|
eval "use lib v100.105";
|
|
unless ($@ =~ /lib v100\.105 required--this is only v35\.36/) {
|
|
print "not ";
|
|
}
|
|
print "ok ",$i++,"\n";
|
|
|
|
eval "use lib 33.55";
|
|
print "not " if $@;
|
|
print "ok ",$i++,"\n";
|
|
|
|
eval "use lib 100.105";
|
|
unless ($@ =~ /lib version 100\.105 required--this is only version 35\.036/) {
|
|
print "not ";
|
|
}
|
|
print "ok ",$i++,"\n";
|
|
}
|