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";
48 use lib; # I know that this module will be there.
51 local $lib::VERSION = 1.0;
58 print "ok ",$i++,"\n";
65 print "ok ",$i++,"\n";
71 print "ok ",$i++,"\n";
74 eval "use lib 0.9 qw(fred)";
79 print "ok ",$i++,"\n";
81 print "not " unless $INC[0] eq "fred";
82 print "ok ",$i++,"\n";
84 eval "use lib 1.0 qw(joe)";
89 print "ok ",$i++,"\n";
91 print "not " unless $INC[0] eq "joe";
92 print "ok ",$i++,"\n";
94 eval "use lib 1.01 qw(freda)";
98 print "ok ",$i++,"\n";
100 print "not " if $INC[0] eq "freda";
101 print "ok ",$i++,"\n";