5 unshift @INC, '../lib';
17 print "ok ",$i++,"\n";
19 eval sprintf "use %.5f;", $];
24 print "ok ",$i++,"\n";
27 eval sprintf "use %.5f;", $] - 0.000001;
32 print "ok ",$i++,"\n";
34 eval sprintf("use %.5f;", $] + 1);
38 print "ok ",$i++,"\n";
40 eval sprintf "use %.5f;", $] + 0.00001;
44 print "ok ",$i++,"\n";
47 { use lib } # check that subparse saves pending tokens
49 local $lib::VERSION = 1.0;
56 print "ok ",$i++,"\n";
63 print "ok ",$i++,"\n";
69 print "ok ",$i++,"\n";
72 eval "use lib 0.9 qw(fred)";
77 print "ok ",$i++,"\n";
79 print "not " unless $INC[0] eq "fred";
80 print "ok ",$i++,"\n";
82 eval "use lib 1.0 qw(joe)";
87 print "ok ",$i++,"\n";
89 print "not " unless $INC[0] eq "joe";
90 print "ok ",$i++,"\n";
92 eval "use lib 1.01 qw(freda)";
96 print "ok ",$i++,"\n";
98 print "not " if $INC[0] eq "freda";
99 print "ok ",$i++,"\n";