Commit | Line | Data |
8ebc5c01 |
1 | #!./perl |
2 | |
3 | BEGIN { |
4 | chdir 't' if -d 't'; |
20822f61 |
5 | @INC = '../lib'; |
8ebc5c01 |
6 | } |
7 | |
1571675a |
8 | print "1..27\n"; |
8ebc5c01 |
9 | |
10 | my $i = 1; |
9f3d182e |
11 | eval "use 5.000"; # implicit semicolon |
12 | if ($@) { |
13 | print STDERR $@,"\n"; |
14 | print "not "; |
15 | } |
16 | print "ok ",$i++,"\n"; |
8ebc5c01 |
17 | |
18 | eval "use 5.000;"; |
19 | if ($@) { |
20 | print STDERR $@,"\n"; |
21 | print "not "; |
22 | } |
23 | print "ok ",$i++,"\n"; |
24 | |
25 | eval sprintf "use %.5f;", $]; |
26 | if ($@) { |
27 | print STDERR $@,"\n"; |
28 | print "not "; |
29 | } |
30 | print "ok ",$i++,"\n"; |
31 | |
32 | |
33 | eval sprintf "use %.5f;", $] - 0.000001; |
34 | if ($@) { |
35 | print STDERR $@,"\n"; |
36 | print "not "; |
37 | } |
38 | print "ok ",$i++,"\n"; |
39 | |
40 | eval sprintf("use %.5f;", $] + 1); |
41 | unless ($@) { |
42 | print "not "; |
43 | } |
44 | print "ok ",$i++,"\n"; |
45 | |
46 | eval sprintf "use %.5f;", $] + 0.00001; |
47 | unless ($@) { |
48 | print "not "; |
49 | } |
50 | print "ok ",$i++,"\n"; |
51 | |
52 | |
18b09519 |
53 | { use lib } # check that subparse saves pending tokens |
8ebc5c01 |
54 | |
55 | local $lib::VERSION = 1.0; |
56 | |
57 | eval "use lib 0.9"; |
58 | if ($@) { |
59 | print STDERR $@,"\n"; |
60 | print "not "; |
61 | } |
62 | print "ok ",$i++,"\n"; |
63 | |
64 | eval "use lib 1.0"; |
65 | if ($@) { |
66 | print STDERR $@,"\n"; |
67 | print "not "; |
68 | } |
69 | print "ok ",$i++,"\n"; |
70 | |
71 | eval "use lib 1.01"; |
72 | unless ($@) { |
73 | print "not "; |
74 | } |
75 | print "ok ",$i++,"\n"; |
76 | |
77 | |
78 | eval "use lib 0.9 qw(fred)"; |
79 | if ($@) { |
80 | print STDERR $@,"\n"; |
81 | print "not "; |
82 | } |
83 | print "ok ",$i++,"\n"; |
84 | |
85 | print "not " unless $INC[0] eq "fred"; |
86 | print "ok ",$i++,"\n"; |
87 | |
88 | eval "use lib 1.0 qw(joe)"; |
89 | if ($@) { |
90 | print STDERR $@,"\n"; |
91 | print "not "; |
92 | } |
93 | print "ok ",$i++,"\n"; |
94 | |
95 | print "not " unless $INC[0] eq "joe"; |
96 | print "ok ",$i++,"\n"; |
97 | |
98 | eval "use lib 1.01 qw(freda)"; |
99 | unless ($@) { |
100 | print "not "; |
101 | } |
102 | print "ok ",$i++,"\n"; |
103 | |
104 | print "not " if $INC[0] eq "freda"; |
105 | print "ok ",$i++,"\n"; |
1571675a |
106 | |
107 | { |
108 | local $lib::VERSION = 35.36; |
109 | eval "use lib v33.55"; |
110 | print "not " if $@; |
111 | print "ok ",$i++,"\n"; |
112 | |
113 | eval "use lib v100.105"; |
ae165b0c |
114 | unless ($@ =~ /lib version 100\.105 required--this is only version 35\.3/) { |
1571675a |
115 | print "not "; |
116 | } |
117 | print "ok ",$i++,"\n"; |
118 | |
119 | eval "use lib 33.55"; |
120 | print "not " if $@; |
121 | print "ok ",$i++,"\n"; |
122 | |
123 | eval "use lib 100.105"; |
ae165b0c |
124 | unless ($@ =~ /lib version 100\.105 required--this is only version 35\.3/) { |
1571675a |
125 | print "not "; |
126 | } |
127 | print "ok ",$i++,"\n"; |
128 | |
129 | local $lib::VERSION = '35.36'; |
130 | eval "use lib v33.55"; |
131 | print "not " if $@; |
132 | print "ok ",$i++,"\n"; |
133 | |
134 | eval "use lib v100.105"; |
135 | unless ($@ =~ /lib version 100\.105 required--this is only version 35\.36/) { |
136 | print "not "; |
137 | } |
138 | print "ok ",$i++,"\n"; |
139 | |
140 | eval "use lib 33.55"; |
141 | print "not " if $@; |
142 | print "ok ",$i++,"\n"; |
143 | |
144 | eval "use lib 100.105"; |
145 | unless ($@ =~ /lib version 100\.105 required--this is only version 35\.36/) { |
146 | print "not "; |
147 | } |
148 | print "ok ",$i++,"\n"; |
149 | |
150 | local $lib::VERSION = v35.36; |
151 | eval "use lib v33.55"; |
152 | print "not " if $@; |
153 | print "ok ",$i++,"\n"; |
154 | |
155 | eval "use lib v100.105"; |
cc507455 |
156 | unless ($@ =~ /lib v100\.105 required--this is only v35\.36/) { |
1571675a |
157 | print "not "; |
158 | } |
159 | print "ok ",$i++,"\n"; |
160 | |
161 | eval "use lib 33.55"; |
162 | print "not " if $@; |
163 | print "ok ",$i++,"\n"; |
164 | |
165 | eval "use lib 100.105"; |
166 | unless ($@ =~ /lib version 100\.105 required--this is only version 35\.036/) { |
167 | print "not "; |
168 | } |
169 | print "ok ",$i++,"\n"; |
170 | } |