Lines Matching refs:fail

5 sub try{$P=qr/^$_[0]$/}sub fail{ok($S=$_[0]!~$P)}sub pass{ok($S=$_[0]=~$P)}
19 fail 1234567;
23 fail 1234.23456789;
26 fail '+1234567.89';
30 fail '-1234567';
33 fail -1234567;
35 fail "a"; 
36 fail "";
37 fail "1a";
38 fail "- 1234";
41 fail "1,2345,6789";
42 fail "1.2345.6789";
52 fail 1234567;
56 fail 1234.23456789;
59 fail '+1234567.89';
63 fail '-1234567';
66 fail -1234567;
68 fail "a"; 
69 fail "";
70 fail "1a";
71 fail "- 1234";
74 fail "1 2345 6789";
75 fail "1.2345.6789";
85 fail 1234567;
89 fail 1234.23456789;
92 fail '+1234567.89';
96 fail '-1234567';
99 fail -1234567;
101 fail "a"; 
102 fail "";
103 fail "1a";
104 fail "- 1234";
107 fail "1 2345 6789";
108 fail "1.2345.6789";
115 fail 1234567;
119 fail '+1234567.89';
122 fail '-1234567';
125 fail -1234567;
127 fail "a"; 
128 fail "";
129 fail "1a";
130 fail "- 1234";
133 fail "1,2345,6789";
134 fail "1.2345.6789";
143 fail 12;
144 fail 1234567;
145 fail 1.23456789;
147 fail '+12';
148 fail '+101010';
149 fail '+101010.0001010';
151 fail '+1234567.89';
154 fail "a"; 
155 fail "";
156 fail "1a";
157 fail "- 1010";
160 fail "1,0101,0011";
161 fail "1.0011.0011";
167 fail 12;
168 fail 1234567;
169 fail 1.23456789;
171 fail '+12';
172 fail '+101010';
173 fail '+101010.0001010';
174 fail '+1234567.89';
177 fail "a"; 
178 fail "";
179 fail "1a";
180 fail "- 1010";
183 fail "1,0101,0011";
184 fail "1.0011.0011";
194 fail 1234567;
195 fail 12345678;
199 fail '+1234567.01';
200 fail '+1234567.09';
203 fail '-1234567';
204 fail '-1234568';
207 fail -1234567;
208 fail -1234568;
210 fail "a"; 
211 fail "";
212 fail "1a";
213 fail "- 1234";
216 fail "12,345.68";
217 fail "1,2345,5670";
218 fail "1.234.567";
225 fail 1234567;
226 fail 12345678;
230 fail '+1234567.01';
231 fail '+1234567.09';
234 fail '-1234567';
235 fail '-1234568';
238 fail -1234567;
239 fail -1234568;
241 fail "a"; 
242 fail "";
243 fail "1a";
244 fail "- 1234";
247 fail "12,345.68";
248 fail "1,2345,5670";
249 fail "1.234.567";
259 fail '12A4C67';
260 fail '12345678G';
262 fail '1.23Z56';
265 fail '+1234567.01A';
266 fail '+1234567.09Q';
269 fail '-123B4567';
270 fail '-123H4567';
273 fail -1234567;
276 fail "";
279 fail "DeadBeef";
281 fail "LiveLamb";
282 fail "- 1234";
285 fail "12,3C5,68";
286 fail "1,23C5,5670";
287 fail "1.234.567";
294 fail '12A4C67';
295 fail '12345678G';
297 fail '1.23Z56';
300 fail '+1234567.01A';
301 fail '+1234567.09Q';
304 fail '-123B4567';
305 fail '-123H4567';
308 fail -1234567;
311 fail "";
314 fail "DeadBeef";
315 fail "LiveLamb";
316 fail "- 1234";
319 fail "12,3C5,68";
320 fail "1,23C5,5670";
321 fail "1.234.567";
331 fail '12A4C67';
332 fail '12345678G';
334 fail '1.23Z56';
337 fail '+1234567.01A';
338 fail '+1234567.09Q';
341 fail '-123B4567';
342 fail '-123H4567';
345 fail -1234567;
348 fail "";
351 fail "DeadBeef";
352 fail "LiveLamb";
355 fail "- 1234";
358 fail "12,3C5,68";
359 fail "1,23C5,5670";
360 fail "1.234.567";