t/op/signatures.t

18     is prototype(\&t000), "\$a", "(\$a) interpreted as protoype when not enabled";
19     is &t000(456), 123, "(\$a) not signature when not enabled";
20     is $a, 123;
34 is prototype(\&t001), undef;
35 is eval("t001()"), 123;
36 is eval("t001(456)"), 123;
37 is eval("t001(456, 789)"), 123;
38 is $a, 123;
60 is prototype(\&t002), undef;
61 is eval("t002()"), 123;
62 is eval("t002(456)"), undef;
64 is eval("t002(456, 789)"), undef;
66 is $a, 123;
69 is prototype(\&t003), undef;
70 is eval("t003()"), 123;
71 is eval("t003(456)"), undef;
73 is eval("t003(456, 789)"), undef;
75 is $a, 123;
78 is prototype(\&t006), undef;
79 is eval("t006()"), undef;
81 is eval("t006(0)"), "z";
82 is eval("t006(456)"), 456;
83 is eval("t006(456, 789)"), undef;
85 is eval("t006(456, 789, 987)"), undef;
87 is $a, 123;
90 is prototype(\&t007), undef;
91 is eval("t007()"), undef;
93 is eval("t007(456)"), undef;
95 is eval("t007(456, 789)"), "456789";
96 is eval("t007(456, 789, 987)"), undef;
98 is eval("t007(456, 789, 987, 654)"), undef;
100 is $a, 123;
103 is prototype(\&t008), undef;
104 is eval("t008()"), undef;
106 is eval("t008(456)"), undef;
108 is eval("t008(456, 789)"), undef;
110 is eval("t008(456, 789, 987)"), "456789987";
111 is eval("t008(456, 789, 987, 654)"), undef;
113 is $a, 123;
116 is prototype(\&t009), undef;
117 is eval("t009()"), undef;
119 is eval("t009(456)"), undef;
121 is eval("t009(456, 789)"), "456789";
122 is eval("t009(456, 789, 987)"), undef;
124 is eval("t009(456, 789, 987, 654)"), undef;
126 is $a, 123;
129 is prototype(\&t010), undef;
130 is eval("t010()"), undef;
132 is eval("t010(456)"), undef;
134 is eval("t010(0, 789)"), "z";
135 is eval("t010(456, 789)"), 456;
136 is eval("t010(456, 789, 987)"), undef;
138 is eval("t010(456, 789, 987, 654)"), undef;
140 is $a, 123;
143 is prototype(\&t011), undef;
144 is eval("t011()"), undef;
146 is eval("t011(456)"), undef;
148 is eval("t011(456, 0)"), "z";
149 is eval("t011(456, 789)"), 789;
150 is eval("t011(456, 789, 987)"), undef;
152 is eval("t011(456, 789, 987, 654)"), undef;
154 is $a, 123;
157 is prototype(\&t012), undef;
158 is eval("t012()"), undef;
160 is eval("t012(456)"), undef;
162 is eval("t012(0, 789)"), 123;
163 is eval("t012(456, 789)"), 123;
164 is eval("t012(456, 789, 987)"), undef;
166 is eval("t012(456, 789, 987, 654)"), undef;
168 is $a, 123;
171 is prototype(\&t013), undef;
172 is eval("t013()"), undef;
174 is eval("t013(0)"), 123;
175 is eval("t013(456)"), 123;
176 is eval("t013(456, 789)"), undef;
178 is eval("t013(456, 789, 987)"), undef;
180 is eval("t013(456, 789, 987, 654)"), undef;
182 is $a, 123;
185 is prototype(\&t014), undef;
186 is eval("t014()"), 222;
187 is eval("t014(0)"), 0;
188 is eval("t014(undef)"), "z";
189 is eval("t014(456)"), 456;
190 is eval("t014(456, 789)"), undef;
192 is eval("t014(456, 789, 987)"), undef;
194 is $a, 123;
197 is prototype(\&t015), undef;
198 is eval("t015()"), "z";
199 is eval("t015(0)"), 0;
200 is eval("t015(undef)"), "z";
201 is eval("t015(456)"), 456;
202 is eval("t015(456, 789)"), undef;
204 is eval("t015(456, 789, 987)"), undef;
206 is $a, 123;
210 is prototype(\&t016), undef;
211 is eval("t016()"), 222;
212 is $z, 1;
213 is eval("t016(0)"), 0;
214 is eval("t016(undef)"), "z";
215 is eval("t016(456)"), 456;
216 is eval("t016(456, 789)"), undef;
218 is eval("t016(456, 789, 987)"), undef;
220 is $z, 1;
221 is eval("t016()"), 222;
222 is $z, 2;
223 is $a, 123;
227 is prototype(\&t017), undef;
228 is eval("t017()"), "222/333";
229 is $a, 333;
231 is eval("t017(0)"), 0;
232 is eval("t017(undef)"), "z";
233 is eval("t017(456)"), 456;
234 is eval("t017(456, 789)"), undef;
236 is eval("t017(456, 789, 987)"), undef;
238 is $a, 123;
241 is prototype(\&t019), undef;
242 is eval("t019()"), "222/333";
243 is eval("t019(0)"), "0/333";
244 is eval("t019(456)"), "456/333";
245 is eval("t019(456, 789)"), "456/789";
246 is eval("t019(456, 789, 987)"), undef;
248 is $a, 123;
252 is prototype(\&t021), undef;
253 is eval("t021()"), "222z/333";
254 is eval("t021(0)"), "0/333";
255 is eval("t021(456)"), "456/333";
256 is eval("t021(456, 789)"), "456/789";
257 is eval("t021(456, 789, 987)"), undef;
259 is $a, 123;
263 is prototype(\&t022), undef;
264 is eval("t022()"), "222/333";
265 is $z, 11;
266 is eval("t022(0)"), "0/333";
267 is $z, 12;
268 is eval("t022(456)"), "456/333";
269 is $z, 13;
270 is eval("t022(456, 789)"), "456/789";
271 is eval("t022(456, 789, 987)"), undef;
273 is $z, 13;
274 is $a, 123;
277 is prototype(\&t023), undef;
278 is eval("t023()"), "azy";
279 is eval("t023(sub { \"x\".\$_[0].\"x\" })"), "xaxy";
280 is eval("t023(sub { \"x\".\$_[0].\"x\" }, 789)"), undef;
282 is $a, 123;
285 is prototype(\&t036), undef;
286 is eval("t036()"), "123xy";
287 is eval("t036(0)"), "0y";
288 is eval("t036(456)"), "456y";
289 is eval("t036(456, 789)"), undef;
291 is $a, 123;
294 is prototype(\&t120), undef;
296 is eval("t120()"), "___";
298 is eval("t120(undef)"), "z";
300 is eval("t120(0)"), 0;
302 is eval("t120(456)"), 456;
304 is eval("t120(456, 789)"), undef;
306 is $a, 123;
309 is prototype(\&t121), undef;
310 is eval("t121()"), "main";
311 is eval("t121(undef)"), "z";
312 is eval("t121(0)"), 0;
313 is eval("t121(456)"), 456;
314 is eval("t121(456, 789)"), undef;
316 is eval("package T121::Z; ::t121()"), "T121::Z";
317 is eval("package T121::Z; ::t121(undef)"), "z";
318 is eval("package T121::Z; ::t121(0)"), 0;
319 is eval("package T121::Z; ::t121(456)"), 456;
320 is eval("package T121::Z; ::t121(456, 789)"), undef;
322 is $a, 123;
325 is prototype(\&t129), undef;
326 is eval("t129()"), "222";
327 is eval("t129(0)"), "0x";
328 is eval("t129(456)"), "456x";
329 is eval("t129(456, 789)"), undef;
331 is $a, 123;
335 is prototype(\&t122), undef;
336 is eval("t122()"), "543210";
337 is eval("t122(0)"), "0";
338 is eval("t122(1)"), "10";
339 is eval("t122(5)"), "543210";
340 is eval("t122(5, 789)"), "5789";
341 is eval("t122(5, 789, 987)"), undef;
343 is $a, 123;
346 is prototype(\&t123), undef;
347 is eval("scalar(t123())"), "scalar";
348 is eval("(t123())[0]"), "list";
349 is eval("scalar(t123(0))"), "scalar";
350 is eval("(t123(0))[0]"), "scalar";
351 is eval("scalar(t123(1))"), "list";
352 is eval("(t123(1))[0]"), "list";
353 is eval("t123(456, 789)"), undef;
355 is $a, 123;
358 is prototype(\&t124), undef;
359 is eval("t124()"), "124/124";
360 is $a, 123;
361 is eval("t124(456)"), "123/456";
362 is $a, 123;
363 is eval("t124(456, 789)"), undef;
365 is $a, 123;
368 is prototype(\&t125), undef;
369 is eval("t125()"), 0;
370 is eval("t125()"), 1;
371 is eval("t125()"), 2;
372 is eval("t125(456)"), 456;
373 is eval("t125(789)"), 789;
374 is eval("t125()"), 3;
375 is eval("t125()"), 4;
376 is eval("t125(456, 789)"), undef;
378 is $a, 123;
382 is prototype(\&t126), undef;
384 is eval("t126(456)"), 456;
385 is $z, 222;
386 is eval("t126()"), 222;
387 is $z, 223;
388 is eval("t126(456)"), 456;
389 is $z, 223;
390 is eval("t126()"), 222;
391 is $z, 223;
392 is eval("t126(456, 789)"), undef;
394 is $z, 223;
395 is $a, 123;
398 is prototype(\&t127), undef;
400 is eval("t127(456)"), 456;
401 is $z, 222;
402 is eval("t127()"), 222;
403 is $z, 223;
404 is eval("t127()"), 223;
405 is eval("t127()"), 224;
406 is $z, 223;
407 is eval("t127(456)"), 456;
408 is eval("t127(789)"), 789;
409 is eval("t127()"), 225;
410 is eval("t127()"), 226;
411 is eval("t127(456, 789)"), undef;
413 is $z, 223;
414 is $a, 123;
417 is prototype(\&t037), undef;
418 is eval("t037()"), "222/222x";
419 is eval("t037(0)"), "0/0x";
420 is eval("t037(456)"), "456/456x";
421 is eval("t037(456, 789)"), "456/789";
422 is eval("t037(456, 789, 987)"), undef;
424 is $a, 123;
427 is prototype(\&t128), undef;
428 is eval("t128()"), "333/333";
429 is eval("t128(0)"), "333/333";
430 is eval("t128(456)"), "333/333";
431 is eval("t128(456, 789)"), "456/789";
432 is eval("t128(456, 789, 987)"), undef;
434 is $a, 123;
438 is prototype(\&t131), undef;
439 is eval("t131()"), ";0";
440 is eval("t131(0)"), "0;1";
441 is eval("t131(456)"), "456;1";
442 is eval("t131(456, 789)"), "456/789";
443 is eval("t131(456, 789, 987)"), undef;
445 is $a, 123;
448 is $@,
452 is prototype(\&t025), undef;
453 is eval("t025()"), 123;
454 is eval("t025(0)"), 123;
455 is eval("t025(456)"), 123;
456 is eval("t025(456, 789)"), undef;
458 is eval("t025(456, 789, 987)"), undef;
460 is eval("t025(456, 789, 987, 654)"), undef;
462 is $a, 123;
465 is prototype(\&t026), undef;
466 is eval("t026()"), 123;
467 is eval("t026(0)"), 123;
468 is eval("t026(456)"), 123;
469 is eval("t026(456, 789)"), undef;
471 is eval("t026(456, 789, 987)"), undef;
473 is eval("t026(456, 789, 987, 654)"), undef;
475 is $a, 123;
479 is prototype(\&t032), undef;
480 is eval("t032()"), 123;
481 is $z, 1;
482 is eval("t032(0)"), 123;
483 is eval("t032(456)"), 123;
484 is eval("t032(456, 789)"), undef;
486 is eval("t032(456, 789, 987)"), undef;
488 is eval("t032(456, 789, 987, 654)"), undef;
490 is $z, 1;
491 is $a, 123;
494 is prototype(\&t027), undef;
495 is eval("t027()"), 123;
496 is eval("t027(0)"), 123;
497 is eval("t027(456)"), 123;
498 is eval("t027(456, 789)"), undef;
500 is eval("t027(456, 789, 987)"), undef;
502 is eval("t027(456, 789, 987, 654)"), undef;
504 is $a, 123;
507 is prototype(\&t119), undef;
508 is eval("t119()"), 333;
509 is eval("t119(0)"), 333;
510 is eval("t119(456)"), 333;
511 is eval("t119(456, 789)"), 789;
512 is eval("t119(456, 789, 987)"), undef;
514 is eval("t119(456, 789, 987, 654)"), undef;
516 is $a, 123;
519 is prototype(\&t028), undef;
520 is eval("t028()"), undef;
522 is eval("t028(0)"), "0/333";
523 is eval("t028(456)"), "456/333";
524 is eval("t028(456, 789)"), "456/789";
525 is eval("t028(456, 789, 987)"), undef;
527 is $a, 123;
530 is prototype(\&t045), undef;
531 is eval("t045()"), undef;
533 is eval("t045(0)"), "0/";
534 is eval("t045(456)"), "456/";
535 is eval("t045(456, 789)"), "456/";
536 is eval("t045(456, 789, 987)"), undef;
538 is $a, 123;
541 is prototype(\&t046), undef;
542 is eval("t046()"), undef;
544 is eval("t046(0)"), "123/333";
545 is eval("t046(456)"), "123/333";
546 is eval("t046(456, 789)"), "123/789";
547 is eval("t046(456, 789, 987)"), undef;
549 is $a, 123;
552 is prototype(\&t047), undef;
553 is eval("t047()"), undef;
555 is eval("t047(0)"), "123/";
556 is eval("t047(456)"), "123/";
557 is eval("t047(456, 789)"), "123/";
558 is eval("t047(456, 789, 987)"), undef;
560 is $a, 123;
563 is prototype(\&t029), undef;
564 is eval("t029()"), undef;
566 is eval("t029(0)"), undef;
568 is eval("t029(456)"), undef;
570 is eval("t029(456, 789)"), "456/789/222/333";
571 is eval("t029(456, 789, 987)"), "456/789/987/333";
572 is eval("t029(456, 789, 987, 654)"), "456/789/987/654";
573 is eval("t029(456, 789, 987, 654, 321)"), undef;
575 is eval("t029(456, 789, 987, 654, 321, 111)"), undef;
577 is $a, 123;
580 is prototype(\&t038), undef;
581 is eval("t038()"), undef;
583 is eval("t038(0)"), "0/0x";
584 is eval("t038(456)"), "456/456x";
585 is eval("t038(456, 789)"), "456/789";
586 is eval("t038(456, 789, 987)"), undef;
588 is $a, 123;
591 is $@, qq{Mandatory parameter follows optional parameter at foo line 8, near "\$b) "\n};
594 is $@, <<EOF;
600 is prototype(\&t034), undef;
601 is eval("t034()"), ";0";
602 is eval("t034(0)"), "0;1";
603 is eval("t034(456)"), "456;1";
604 is eval("t034(456, 789)"), "456/789;2";
605 is eval("t034(456, 789, 987)"), "456/789/987;3";
606 is eval("t034(456, 789, 987, 654)"), "456/789/987/654;4";
607 is eval("t034(456, 789, 987, 654, 321)"), "456/789/987/654/321;5";
608 is eval("t034(456, 789, 987, 654, 321, 111)"), "456/789/987/654/321/111;6";
609 is $a, 123;
612 is $@, qq{A slurpy parameter may not have a default value at foo line 8, near "222) "\n};
615 is $@, qq{A slurpy parameter may not have a default value at foo line 8, near "=) "\n};
618 is prototype(\&t035), undef;
619 is eval("t035()"), 123;
620 is eval("t035(0)"), 123;
621 is eval("t035(456)"), 123;
622 is eval("t035(456, 789)"), 123;
623 is eval("t035(456, 789, 987)"), 123;
624 is eval("t035(456, 789, 987, 654)"), 123;
625 is eval("t035(456, 789, 987, 654, 321)"), 123;
626 is eval("t035(456, 789, 987, 654, 321, 111)"), 123;
627 is $a, 123;
630 is $@, qq{A slurpy parameter may not have a default value at foo line 8, near "222) "\n};
633 is $@, qq{A slurpy parameter may not have a default value at foo line 8, near "=) "\n};
636 is prototype(\&t039), undef;
637 is eval("t039()"), "";
638 is eval("t039(0)"), undef;
640 is eval("t039(456)"), undef;
642 is eval("t039(456, 789)"), "456=789";
643 is eval("t039(456, 789, 987)"), undef;
645 is eval("t039(456, 789, 987, 654)"), "456=789/987=654";
646 is eval("t039(456, 789, 987, 654, 321)"), undef;
648 is eval("t039(456, 789, 987, 654, 321, 111)"), "321=111/456=789/987=654";
649 is $a, 123;
652 is $@, qq{A slurpy parameter may not have a default value at foo line 8, near "222) "\n};
655 is $@, qq{A slurpy parameter may not have a default value at foo line 8, near "=) "\n};
658 is prototype(\&t040), undef;
659 is eval("t040()"), 123;
660 is eval("t040(0)"), undef;
662 is eval("t040(456)"), undef;
664 is eval("t040(456, 789)"), 123;
665 is eval("t040(456, 789, 987)"), undef;
667 is eval("t040(456, 789, 987, 654)"), 123;
668 is eval("t040(456, 789, 987, 654, 321)"), undef;
670 is eval("t040(456, 789, 987, 654, 321, 111)"), 123;
671 is $a, 123;
674 is $@, qq{A slurpy parameter may not have a default value at foo line 8, near "222) "\n};
677 is $@, qq{A slurpy parameter may not have a default value at foo line 8, near "=) "\n};
680 is prototype(\&t041), undef;
681 is eval("t041()"), undef;
683 is eval("t041(0)"), "0;";
684 is eval("t041(456)"), "456;";
685 is eval("t041(456, 789)"), "456;789";
686 is eval("t041(456, 789, 987)"), "456;789/987";
687 is eval("t041(456, 789, 987, 654)"), "456;789/987/654";
688 is eval("t041(456, 789, 987, 654, 321)"), "456;789/987/654/321";
689 is eval("t041(456, 789, 987, 654, 321, 111)"), "456;789/987/654/321/111";
690 is $a, 123;
693 is prototype(\&t042), undef;
694 is eval("t042()"), undef;
696 is eval("t042(0)"), "0;";
697 is eval("t042(456)"), "456;";
698 is eval("t042(456, 789)"), "456;";
699 is eval("t042(456, 789, 987)"), "456;";
700 is eval("t042(456, 789, 987, 654)"), "456;";
701 is eval("t042(456, 789, 987, 654, 321)"), "456;";
702 is eval("t042(456, 789, 987, 654, 321, 111)"), "456;";
703 is $a, 123;
706 is prototype(\&t043), undef;
707 is eval("t043()"), undef;
709 is eval("t043(0)"), "123;";
710 is eval("t043(456)"), "123;";
711 is eval("t043(456, 789)"), "123;789";
712 is eval("t043(456, 789, 987)"), "123;789/987";
713 is eval("t043(456, 789, 987, 654)"), "123;789/987/654";
714 is eval("t043(456, 789, 987, 654, 321)"), "123;789/987/654/321";
715 is eval("t043(456, 789, 987, 654, 321, 111)"), "123;789/987/654/321/111";
716 is $a, 123;
719 is prototype(\&t044), undef;
720 is eval("t044()"), undef;
722 is eval("t044(0)"), "123;";
723 is eval("t044(456)"), "123;";
724 is eval("t044(456, 789)"), "123;";
725 is eval("t044(456, 789, 987)"), "123;";
726 is eval("t044(456, 789, 987, 654)"), "123;";
727 is eval("t044(456, 789, 987, 654, 321)"), "123;";
728 is eval("t044(456, 789, 987, 654, 321, 111)"), "123;";
729 is $a, 123;
732 is prototype(\&t049), undef;
733 is eval("t049()"), undef;
735 is eval("t049(222)"), "222;";
736 is eval("t049(222, 456)"), undef;
738 is eval("t049(222, 456, 789)"), "222;456=789";
739 is eval("t049(222, 456, 789, 987)"), undef;
741 is eval("t049(222, 456, 789, 987, 654)"), "222;456=789/987=654";
742 is eval("t049(222, 456, 789, 987, 654, 321)"), undef;
744 is eval("t049(222, 456, 789, 987, 654, 321, 111)"),
746 is $a, 123;
749 is prototype(\&t051), undef;
750 is eval("t051()"), undef;
752 is eval("t051(456)"), undef;
754 is eval("t051(456, 789)"), undef;
756 is eval("t051(456, 789, 987)"), "456;789;987;;0";
757 is eval("t051(456, 789, 987, 654)"), "456;789;987;654;1";
758 is eval("t051(456, 789, 987, 654, 321)"), "456;789;987;654/321;2";
759 is eval("t051(456, 789, 987, 654, 321, 111)"), "456;789;987;654/321/111;3";
760 is $a, 123;
763 is prototype(\&t052), undef;
764 is eval("t052()"), undef;
766 is eval("t052(222)"), undef;
768 is eval("t052(222, 333)"), "222;333;";
769 is eval("t052(222, 333, 456)"), undef;
771 is eval("t052(222, 333, 456, 789)"), "222;333;456=789";
772 is eval("t052(222, 333, 456, 789, 987)"), undef;
774 is eval("t052(222, 333, 456, 789, 987, 654)"), "222;333;456=789/987=654";
775 is eval("t052(222, 333, 456, 789, 987, 654, 321)"), undef;
777 is eval("t052(222, 333, 456, 789, 987, 654, 321, 111)"),
779 is $a, 123;
784 is prototype(\&t053), undef;
785 is eval("t053()"), undef;
787 is eval("t053(222)"), undef;
789 is eval("t053(222, 333)"), undef;
791 is eval("t053(222, 333, 444)"), "222;333;444;";
792 is eval("t053(222, 333, 444, 456)"), undef;
794 is eval("t053(222, 333, 444, 456, 789)"), "222;333;444;456=789";
795 is eval("t053(222, 333, 444, 456, 789, 987)"), undef;
797 is eval("t053(222, 333, 444, 456, 789, 987, 654)"),
799 is eval("t053(222, 333, 444, 456, 789, 987, 654, 321)"), undef;
801 is eval("t053(222, 333, 444, 456, 789, 987, 654, 321, 111)"),
803 is $a, 123;
806 is prototype(\&t048), undef;
807 is eval("t048()"), "222;;0";
808 is eval("t048(0)"), "0;;0";
809 is eval("t048(456)"), "456;;0";
810 is eval("t048(456, 789)"), "456;789;1";
811 is eval("t048(456, 789, 987)"), "456;789/987;2";
812 is eval("t048(456, 789, 987, 654)"), "456;789/987/654;3";
813 is eval("t048(456, 789, 987, 654, 321)"), "456;789/987/654/321;4";
814 is eval("t048(456, 789, 987, 654, 321, 111)"), "456;789/987/654/321/111;5";
815 is $a, 123;
818 is prototype(\&t054), undef;
819 is eval("t054()"), "222;333;;0";
820 is eval("t054(456)"), "456;333;;0";
821 is eval("t054(456, 789)"), "456;789;;0";
822 is eval("t054(456, 789, 987)"), "456;789;987;1";
823 is eval("t054(456, 789, 987, 654)"), "456;789;987/654;2";
824 is eval("t054(456, 789, 987, 654, 321)"), "456;789;987/654/321;3";
825 is eval("t054(456, 789, 987, 654, 321, 111)"), "456;789;987/654/321/111;4";
826 is $a, 123;
831 is prototype(\&t055), undef;
832 is eval("t055()"), "222;333;444;;0";
833 is eval("t055(456)"), "456;333;444;;0";
834 is eval("t055(456, 789)"), "456;789;444;;0";
835 is eval("t055(456, 789, 987)"), "456;789;987;;0";
836 is eval("t055(456, 789, 987, 654)"), "456;789;987;654;1";
837 is eval("t055(456, 789, 987, 654, 321)"), "456;789;987;654/321;2";
838 is eval("t055(456, 789, 987, 654, 321, 111)"), "456;789;987;654/321/111;3";
839 is $a, 123;
842 is prototype(\&t050), undef;
843 is eval("t050()"), "211;";
844 is eval("t050(222)"), "222;";
845 is eval("t050(222, 456)"), undef;
847 is eval("t050(222, 456, 789)"), "222;456=789";
848 is eval("t050(222, 456, 789, 987)"), undef;
850 is eval("t050(222, 456, 789, 987, 654)"), "222;456=789/987=654";
851 is eval("t050(222, 456, 789, 987, 654, 321)"), undef;
853 is eval("t050(222, 456, 789, 987, 654, 321, 111)"),
855 is $a, 123;
860 is prototype(\&t056), undef;
861 is eval("t056()"), "211;311;";
862 is eval("t056(222)"), "222;311;";
863 is eval("t056(222, 333)"), "222;333;";
864 is eval("t056(222, 333, 456)"), undef;
866 is eval("t056(222, 333, 456, 789)"), "222;333;456=789";
867 is eval("t056(222, 333, 456, 789, 987)"), undef;
869 is eval("t056(222, 333, 456, 789, 987, 654)"), "222;333;456=789/987=654";
870 is eval("t056(222, 333, 456, 789, 987, 654, 321)"), undef;
872 is eval("t056(222, 333, 456, 789, 987, 654, 321, 111)"),
874 is $a, 123;
879 is prototype(\&t057), undef;
880 is eval("t057()"), "211;311;411;";
881 is eval("t057(222)"), "222;311;411;";
882 is eval("t057(222, 333)"), "222;333;411;";
883 is eval("t057(222, 333, 444)"), "222;333;444;";
884 is eval("t057(222, 333, 444, 456)"), undef;
886 is eval("t057(222, 333, 444, 456, 789)"), "222;333;444;456=789";
887 is eval("t057(222, 333, 444, 456, 789, 987)"), undef;
889 is eval("t057(222, 333, 444, 456, 789, 987, 654)"),
891 is eval("t057(222, 333, 444, 456, 789, 987, 654, 321)"), undef;
893 is eval("t057(222, 333, 444, 456, 789, 987, 654, 321, 111)"),
895 is $a, 123;
898 is prototype(\&t058), undef;
899 is eval("t058()"), undef;
901 is eval("t058(456)"), "456;333;;0";
902 is eval("t058(456, 789)"), "456;789;;0";
903 is eval("t058(456, 789, 987)"), "456;789;987;1";
904 is eval("t058(456, 789, 987, 654)"), "456;789;987/654;2";
905 is eval("t058(456, 789, 987, 654, 321)"), "456;789;987/654/321;3";
906 is eval("t058(456, 789, 987, 654, 321, 111)"), "456;789;987/654/321/111;4";
907 is $a, 123;
910 is $@, qq{Slurpy parameter not last at foo line 8, near "\$b) "\n};
913 is $@, qq{Slurpy parameter not last at foo line 8, near "222) "\n};
916 is $@, qq{Multiple slurpy parameters not allowed at foo line 8, near "\@b) "\n};
919 is $@, qq{Multiple slurpy parameters not allowed at foo line 8, near "%b) "\n};
922 is $@, qq{Slurpy parameter not last at foo line 8, near "\$b) "\n};
925 is $@, qq{Slurpy parameter not last at foo line 8, near "222) "\n};
928 is $@, qq{Multiple slurpy parameters not allowed at foo line 8, near "\@b) "\n};
931 is $@, qq{Multiple slurpy parameters not allowed at foo line 8, near "%b) "\n};
934 is $@, qq{Slurpy parameter not last at foo line 8, near "\$) "\n};
937 is $@, qq{Slurpy parameter not last at foo line 8, near "222) "\n};
940 is $@, qq{Multiple slurpy parameters not allowed at foo line 8, near "\@) "\n};
943 is $@, qq{Multiple slurpy parameters not allowed at foo line 8, near "\%) "\n};
946 is $@, qq{Slurpy parameter not last at foo line 8, near "\$) "\n};
949 is $@, qq{Slurpy parameter not last at foo line 8, near "222) "\n};
952 is $@, qq{Multiple slurpy parameters not allowed at foo line 8, near "\@) "\n};
955 is $@, qq{Multiple slurpy parameters not allowed at foo line 8, near "\%) "\n};
958 is $@, qq{Slurpy parameter not last at foo line 8, near "\$b) "\n};
961 is $@, qq{Slurpy parameter not last at foo line 8, near "\$b) "\n};
964 is $@, qq{Slurpy parameter not last at foo line 8, near "\$c) "\n};
967 is $@, qq{Slurpy parameter not last at foo line 8, near "\$c) "\n};
970 is $@, <<EOF;
976 is prototype(\&t080), undef;
977 is eval("t080()"), undef;
979 is eval("t080(456)"), undef;
981 is eval("t080(456, 789)"), "456789";
982 is eval("t080(456, 789, 987)"), undef;
984 is eval("t080(456, 789, 987, 654)"), undef;
986 is $a, 123;
989 is prototype(\&t081), undef;
990 is eval("t081()"), undef;
992 is eval("t081(456)"), undef;
994 is eval("t081(456, 789)"), "456789";
995 is eval("t081(456, 789, 987)"), undef;
997 is eval("t081(456, 789, 987, 654)"), undef;
999 is $a, 123;
1002 is $@, qq{syntax error at foo line 8, near "(,"\n};
1005 is $@, qq{syntax error at foo line 8, near "(,"\n};
1008 is prototype(\&t084), undef;
1009 is eval("t084()"), undef;
1011 is eval("t084(456)"), undef;
1013 is eval("t084(456, 789)"), "456789";
1014 is eval("t084(456, 789, 987)"), undef;
1016 is eval("t084(456, 789, 987, 654)"), undef;
1018 is $a, 123;
1034 is prototype(\&t085), undef;
1035 is eval("t085()"), undef;
1037 is eval("t085(456)"), "456333";
1038 is eval("t085(456, 789)"), "456789";
1039 is eval("t085(456, 789, 987)"), undef;
1041 is eval("t085(456, 789, 987, 654)"), undef;
1043 is $a, 123;
1059 is prototype(\&t086), undef;
1060 is eval("t086()"), undef;
1062 is eval("t086(456)"), "456333";
1063 is eval("t086(456, 789)"), "456789";
1064 is eval("t086(456, 789, 987)"), undef;
1066 is eval("t086(456, 789, 987, 654)"), undef;
1068 is $a, 123;
1084 is prototype(\&t087), undef;
1085 is eval("t087()"), undef;
1087 is eval("t087(456)"), "456333";
1088 is eval("t087(456, 789)"), "456789";
1089 is eval("t087(456, 789, 987)"), undef;
1091 is eval("t087(456, 789, 987, 654)"), undef;
1093 is $a, 123;
1096 is $@, "";
1103 is $@, "";
1109 is $@, "";
1118 is $@, <<EOF;
1124 is $@, <<'EOF';
1130 is $@, <<'EOF';
1136 is $@, <<'EOF';
1142 is $@, <<EOF;
1154 is prototype($t103), undef;
1155 is eval("\$t103->()"), undef;
1157 is eval("\$t103->(0)"), "z";
1158 is eval("\$t103->(456)"), 456;
1159 is eval("\$t103->(456, 789)"), undef;
1161 is eval("\$t103->(456, 789, 987)"), undef;
1163 is $a, 123;
1166 is prototype($t118), "\$";
1167 is eval("\$t118->()"), undef;
1169 is eval("\$t118->(0)"), "z";
1170 is eval("\$t118->(456)"), 456;
1171 is eval("\$t118->(456, 789)"), undef;
1173 is eval("\$t118->(456, 789, 987)"), undef;
1175 is $a, 123;
1178 is prototype(\&t033), undef;
1179 is eval("t033()"), "azy";
1180 is eval("t033(sub { \"x\".\$_[0].\"x\" })"), "xaxy";
1181 is eval("t033(sub { \"x\".\$_[0].\"x\" }, 789)"), undef;
1183 is $a, 123;
1186 is prototype(\&t133), undef;
1187 is eval("t133()"), "222z/az";
1188 is eval("t133(sub { \"x\".(\$_[0] // \"u\").\"x\" })"), "xux/xax";
1189 is eval("t133(sub { \"x\".(\$_[0] // \"u\").\"x\" }, 789)"), undef;
1191 is $a, 123;
1196 is prototype(\&t134), undef;
1197 is eval("t134()"), "apz/bqz";
1198 is eval("t134(sub { \"x\".(\$_[1] // sub{\$_[0]})->(\$_[0]).\"x\" })"),
1200 is eval("t134(sub { \"x\".(\$_[1] // sub{\$_[0]})->(\$_[0]).\"x\" }, 789)"),
1203 is $a, 123;
1208 is prototype(\&t135), undef;
1209 is eval("t135()"), "apz/bqz";
1210 is eval("t135(sub { \"x\".(\$_[1] // sub{\$_[0]})->(\$_[0]).\"x\" })"),
1212 is eval("t135(sub { \"x\".(\$_[1] // sub{\$_[0]})->(\$_[0]).\"x\" }, 789)"),
1215 is $a, 123;
1222 is prototype(\&t132), undef;
1223 is eval("t132()"), "apz222p/bqzuq";
1224 is eval("t132(sub { \"x\".(\$_[1] // sub{\$_[0]})->(\$_[0]).\"x\" })"),
1226 is eval("t132(sub { \"x\".(\$_[1] // sub{\$_[0]})->(\$_[0]).\"x\" }, 789)"),
1229 is $a, 123;
1232 is prototype(\&t104), undef;
1233 is eval("t104()"), undef;
1235 is eval("t104(0)"), "z";
1236 is eval("t104(456)"), 456;
1237 is eval("t104(456, 789)"), undef;
1239 is eval("t104(456, 789, 987)"), undef;
1241 is $a, 123;
1244 is prototype(\&t105), "\$";
1245 is eval("t105()"), undef;
1247 is eval("t105(0)"), "z";
1248 is eval("t105(456)"), 456;
1249 is eval("t105(456, 789)"), undef;
1251 is eval("t105(456, 789, 987)"), undef;
1253 is $a, 123;
1256 is prototype(\&t106), "\@";
1257 is eval("t106()"), undef;
1259 is eval("t106(0)"), "z";
1260 is eval("t106(456)"), 456;
1261 is eval("t106(456, 789)"), undef;
1263 is eval("t106(456, 789, 987)"), undef;
1265 is $a, 123;
1274 is prototype(\&t109), undef;
1275 is scalar(@{[ t109() ]}), 0;
1276 is scalar(t109()), undef;
1279 is prototype(\&t110), undef;
1280 is scalar(@{[ t110() ]}), 0;
1281 is scalar(t110()), undef;
1284 is prototype(\&t111), undef;
1285 is scalar(@{[ t111(222) ]}), 0;
1286 is scalar(t111(222)), undef;
1289 is prototype(\&t112), undef;
1290 is scalar(@{[ t112(222) ]}), 0;
1291 is scalar(t112(222)), undef;
1294 is prototype(\&t114), undef;
1295 is scalar(@{[ t114() ]}), 0;
1296 is scalar(t114()), undef;
1297 is scalar(@{[ t114(333) ]}), 0;
1298 is scalar(t114(333)), undef;
1301 is prototype(\&t113), undef;
1302 is scalar(@{[ t113() ]}), 0;
1303 is scalar(t113()), undef;
1304 is scalar(@{[ t113(333) ]}), 0;
1305 is scalar(t113(333)), undef;
1308 is prototype(\&t115), undef;
1310 is scalar(@{[ t115() ]}), 0;
1311 is $z, 1;
1312 is scalar(t115()), undef;
1313 is $z, 2;
1314 is scalar(@{[ t115(333) ]}), 0;
1315 is scalar(t115(333)), undef;
1316 is $z, 2;
1319 is prototype(\&t116), undef;
1320 is scalar(@{[ t116() ]}), 0;
1321 is scalar(t116()), undef;
1322 is scalar(@{[ t116(333) ]}), 0;
1323 is scalar(t116(333)), undef;
1326 is prototype(\&t117), undef;
1327 is scalar(@{[ t117() ]}), 0;
1328 is scalar(t117()), undef;
1329 is scalar(@{[ t117(333, 444) ]}), 0;
1330 is scalar(t117(333, 444)), undef;
1333 is scalar(t145()), undef;
1342     is ($want, "scalar", "default expression is scalar in void context");
1344     is ($want, "scalar", "default expression is scalar in scalar context");
1346     is ($want, "scalar", "default expression is scalar in list context");
1362     is t146(), 1, "t146: closure can make new lexical not undef";
1366         is pos($a), undef, "t147: pos magic cleared";
1369     is t147(), 1, "t147: closure can make new lexical not undef and magical";
1375     is t148(), 1, "t148: closure can make new lexical a ref";
1381     is ref(t149()), "ARRAY", "t149: closure can make new lexical a ref";
1384         is $a, 1,   "t150: a: growing \@_";
1385         is $b, "b", "t150: b: growing \@_";
1391         is $a, 1,   "t151: a: tied \@_";
1392         is $b, "b", "t151: b: tied \@_";
1400     is t152(), "1-", "t152: closure can make new lexical array non-empty";
1406     is t153(), "1-", "t153: closure can make new lexical hash non-empty";
1412     is t154(), "1-", "t154: closure can make new lexical array tied";
1418     is t155(), "1-", "t155: closure can make new lexical hash tied";
1421         is $a, 1,       "t156: a: growing \@_";
1422         is "@b", "b c", "t156: b: growing \@_";
1427         is $a, 1,                     "t157: a: growing \@_";
1428         is join(':', sort %b), "b:c", "t157: b: growing \@_";
1433         is $a, 1,          "t158: a: tied \@_";
1434         is "@b", "b c",    "t158: b: tied \@_";
1439         is  $a, 1,                     "t159: a: tied \@_";
1440         is  join(':', sort %b), "b:c", "t159: b: tied \@_";
1455     is t160x(), "1:y:x", 'handle commonality in slurpy array';
1468     is t161x(), "1 (k1,v2) (k2,v1)", 'handle commonality in slurpy hash';
1484         is t162x(), "y:x", 'handle commonality in scalar parms';
1491     is eval q{sub ($x,$x) { $x}->(1,2)}, 2, "duplicate sig var names";
1554     is $x, "Xbc", "RT #132141";
1569     is +@errs, 1, "RT 132760 expect 1 error";