Commit | Line | Data |
8ebc5c01 |
1 | #!./perl |
2 | |
3 | BEGIN { |
4 | chdir 't' if -d 't'; |
93430cb4 |
5 | unshift @INC, '../lib'; |
8ebc5c01 |
6 | } |
7 | |
8 | print "1..14\n"; |
9 | |
10 | my $i = 1; |
11 | |
12 | eval "use 5.000;"; |
13 | if ($@) { |
14 | print STDERR $@,"\n"; |
15 | print "not "; |
16 | } |
17 | print "ok ",$i++,"\n"; |
18 | |
19 | eval sprintf "use %.5f;", $]; |
20 | if ($@) { |
21 | print STDERR $@,"\n"; |
22 | print "not "; |
23 | } |
24 | print "ok ",$i++,"\n"; |
25 | |
26 | |
27 | eval sprintf "use %.5f;", $] - 0.000001; |
28 | if ($@) { |
29 | print STDERR $@,"\n"; |
30 | print "not "; |
31 | } |
32 | print "ok ",$i++,"\n"; |
33 | |
34 | eval sprintf("use %.5f;", $] + 1); |
35 | unless ($@) { |
36 | print "not "; |
37 | } |
38 | print "ok ",$i++,"\n"; |
39 | |
40 | eval sprintf "use %.5f;", $] + 0.00001; |
41 | unless ($@) { |
42 | print "not "; |
43 | } |
44 | print "ok ",$i++,"\n"; |
45 | |
46 | |
1761cee5 |
47 | { use lib } # check that subparse saves pending tokens |
8ebc5c01 |
48 | |
49 | local $lib::VERSION = 1.0; |
50 | |
51 | eval "use lib 0.9"; |
52 | if ($@) { |
53 | print STDERR $@,"\n"; |
54 | print "not "; |
55 | } |
56 | print "ok ",$i++,"\n"; |
57 | |
58 | eval "use lib 1.0"; |
59 | if ($@) { |
60 | print STDERR $@,"\n"; |
61 | print "not "; |
62 | } |
63 | print "ok ",$i++,"\n"; |
64 | |
65 | eval "use lib 1.01"; |
66 | unless ($@) { |
67 | print "not "; |
68 | } |
69 | print "ok ",$i++,"\n"; |
70 | |
71 | |
72 | eval "use lib 0.9 qw(fred)"; |
73 | if ($@) { |
74 | print STDERR $@,"\n"; |
75 | print "not "; |
76 | } |
77 | print "ok ",$i++,"\n"; |
78 | |
79 | print "not " unless $INC[0] eq "fred"; |
80 | print "ok ",$i++,"\n"; |
81 | |
82 | eval "use lib 1.0 qw(joe)"; |
83 | if ($@) { |
84 | print STDERR $@,"\n"; |
85 | print "not "; |
86 | } |
87 | print "ok ",$i++,"\n"; |
88 | |
89 | print "not " unless $INC[0] eq "joe"; |
90 | print "ok ",$i++,"\n"; |
91 | |
92 | eval "use lib 1.01 qw(freda)"; |
93 | unless ($@) { |
94 | print "not "; |
95 | } |
96 | print "ok ",$i++,"\n"; |
97 | |
98 | print "not " if $INC[0] eq "freda"; |
99 | print "ok ",$i++,"\n"; |