Commit | Line | Data |
939256b9 |
1 | #!./perl |
2 | |
3 | =head1 NAME |
4 | |
5 | s2p.t - test suite for s2p/psed |
6 | |
7 | =head1 NOTES |
8 | |
9 | The general idea is to |
10 | |
11 | (a) run psed with a sed script and input data to obtain some output |
12 | (b) run s2p with a sed script creating a Perl program and then run the |
13 | Perl program with the input data, again producing output |
14 | |
15 | Both final outputs should be identical to the expected output. |
16 | |
17 | A $testcase{<name>} contains entries (after the comment ### <name> ###): |
18 | |
19 | - script: the sed script |
20 | - input: the key of the input data, stored in $input{<input>} |
21 | - expect: the expected output |
22 | - datfil: an additional file [ <path>, <data> ] (if required) |
23 | |
24 | Temporary files are created in the working directory (embedding $$ |
25 | in the name), and removed after the test. |
26 | |
27 | Except for bin2dec (which indeed converts binary to decimal) none of the |
28 | sed scripts is doing something useful. |
29 | |
30 | Author: Wolfgang Laun. |
31 | |
32 | =cut |
33 | |
34 | BEGIN { |
35 | chdir 't' if -d 't'; |
36 | @INC = ( '../lib' ); |
37 | } |
38 | |
939256b9 |
39 | use File::Copy; |
40 | use File::Spec; |
41 | require './test.pl'; |
42 | |
43 | # BRE extensions |
44 | $ENV{PSEDEXTBRE} = '<>wW'; |
45 | |
46 | our %input = ( |
47 | bins => <<'[TheEnd]', |
48 | 0 |
49 | 111 |
50 | 1000 |
51 | 10001 |
52 | [TheEnd] |
53 | |
54 | text => <<'[TheEnd]', |
55 | line 1 |
56 | line 2 |
57 | line 3 |
58 | line 4 |
59 | line 5 |
60 | line 6 |
61 | line 7 |
62 | line 8 |
63 | [TheEnd] |
64 | |
65 | adr1 => <<'[TheEnd]', |
66 | #no autoprint |
67 | # This script should be run on itself |
68 | /^#__DATA__$/,${ |
69 | /^#A$/p |
70 | s/^# *[0-9]* *// |
71 | /^#\*$/p |
72 | /^#\.$/p |
73 | /^#\(..\)\(..\)\2\1*$/p |
74 | /^#[abc]\{1,\}[def]\{1,\}$/p |
75 | } |
76 | #__DATA__ |
77 | #A |
78 | #* |
79 | #. |
80 | #abxyxy |
81 | #abxyxyab |
82 | #abxyxyabab |
83 | #ad |
84 | #abcdef |
85 | [TheEnd] |
86 | ); |
87 | |
88 | |
89 | our %testcase = ( |
90 | |
91 | ### bin2dec ### |
92 | 'bin2dec' => { |
93 | script => <<'[TheEnd]', |
94 | # binary -> decimal |
95 | s/^[ ]*\([01]\{1,\}\)[ ]*/\1/ |
96 | t go |
97 | i\ |
98 | is not a binary number |
99 | d |
100 | |
101 | # expand binary to Xs |
102 | : go |
103 | s/^0*// |
104 | s/^1/X/ |
105 | : expand |
106 | s/^\(X\{1,\}\)0/\1\1/ |
107 | s/^\(X\{1,\}\)1/\1\1X/ |
108 | t expand |
109 | |
110 | # count Xs in decimal |
111 | : count |
112 | s/^X/1/ |
113 | s/0X/1/ |
114 | s/1X/2/ |
115 | s/2X/3/ |
116 | s/3X/4/ |
117 | s/4X/5/ |
118 | s/5X/6/ |
119 | s/6X/7/ |
120 | s/7X/8/ |
121 | s/8X/9/ |
122 | s/9X/X0/ |
123 | t count |
124 | s/^$/0/ |
125 | [TheEnd] |
126 | input => 'bins', |
127 | expect => <<'[TheEnd]', |
128 | 0 |
129 | 7 |
130 | 8 |
131 | 17 |
132 | [TheEnd] |
133 | }, |
134 | |
135 | |
136 | ### = ### |
137 | '=' => { |
138 | script => <<'[TheEnd]', |
139 | 1= |
140 | $= |
141 | [TheEnd] |
142 | input => 'text', |
143 | expect => <<'[TheEnd]', |
144 | 1 |
145 | line 1 |
146 | line 2 |
147 | line 3 |
148 | line 4 |
149 | line 5 |
150 | line 6 |
151 | line 7 |
152 | 8 |
153 | line 8 |
154 | [TheEnd] |
155 | }, |
156 | |
157 | ### D ### |
158 | 'D' => { |
159 | script => <<'[TheEnd]', |
160 | #no autoprint |
161 | /1/{ |
162 | N |
163 | N |
164 | N |
165 | D |
166 | } |
167 | p |
168 | /2/D |
169 | = |
170 | p |
171 | [TheEnd] |
172 | input => 'text', |
173 | expect => <<'[TheEnd]', |
174 | line 2 |
175 | line 3 |
176 | line 4 |
177 | line 3 |
178 | line 4 |
179 | 4 |
180 | line 3 |
181 | line 4 |
182 | line 5 |
183 | 5 |
184 | line 5 |
185 | line 6 |
186 | 6 |
187 | line 6 |
188 | line 7 |
189 | 7 |
190 | line 7 |
191 | line 8 |
192 | 8 |
193 | line 8 |
194 | [TheEnd] |
195 | }, |
196 | |
197 | ### H ### |
198 | 'H' => { |
199 | script => <<'[TheEnd]', |
200 | #no autoprint |
201 | 1,$H |
202 | $g |
203 | $= |
204 | $p |
205 | [TheEnd] |
206 | input => 'text', |
207 | expect => <<'[TheEnd]', |
208 | 8 |
209 | |
210 | line 1 |
211 | line 2 |
212 | line 3 |
213 | line 4 |
214 | line 5 |
215 | line 6 |
216 | line 7 |
217 | line 8 |
218 | [TheEnd] |
219 | }, |
220 | |
221 | ### N ### |
222 | 'N' => { |
223 | script => <<'[TheEnd]', |
224 | 3a\ |
225 | added line |
226 | 4a\ |
227 | added line |
228 | 5a\ |
229 | added line |
230 | 3,5N |
231 | = |
232 | d |
233 | [TheEnd] |
234 | input => 'text', |
235 | expect => <<'[TheEnd]', |
236 | 1 |
237 | 2 |
238 | added line |
239 | 4 |
240 | added line |
241 | 6 |
242 | 7 |
243 | 8 |
244 | [TheEnd] |
245 | }, |
246 | |
247 | ### P ### |
248 | 'P' => { |
249 | script => <<'[TheEnd]', |
250 | 1N |
251 | 2N |
252 | 3N |
253 | 4= |
254 | 4P |
255 | 4,$d |
256 | [TheEnd] |
257 | input => 'text', |
258 | expect => <<'[TheEnd]', |
259 | 4 |
260 | line 1 |
261 | [TheEnd] |
262 | }, |
263 | |
264 | ### a ### |
265 | 'a' => { |
266 | script => <<'[TheEnd]', |
267 | 1a\ |
268 | added line 1.1\ |
269 | added line 1.2 |
270 | |
271 | 3a\ |
272 | added line 3.1 |
273 | 3a\ |
274 | added line 3.2 |
275 | |
276 | [TheEnd] |
277 | input => 'text', |
278 | expect => <<'[TheEnd]', |
279 | line 1 |
280 | added line 1.1 |
281 | added line 1.2 |
282 | line 2 |
283 | line 3 |
284 | added line 3.1 |
285 | added line 3.2 |
286 | line 4 |
287 | line 5 |
288 | line 6 |
289 | line 7 |
290 | line 8 |
291 | [TheEnd] |
292 | }, |
293 | |
294 | ### b ### |
295 | 'b' => { |
296 | script => <<'[TheEnd]', |
297 | #no autoprint |
298 | 2 b eos |
299 | 4 b eos |
300 | p |
301 | : eos |
302 | [TheEnd] |
303 | input => 'text', |
304 | expect => <<'[TheEnd]', |
305 | line 1 |
306 | line 3 |
307 | line 5 |
308 | line 6 |
309 | line 7 |
310 | line 8 |
311 | [TheEnd] |
312 | }, |
313 | |
314 | ### block ### |
315 | 'block' => { |
316 | script => "#no autoprint\n1,3{\n=\np\n}", |
317 | input => 'text', |
318 | expect => <<'[TheEnd]', |
319 | 1 |
320 | line 1 |
321 | 2 |
322 | line 2 |
323 | 3 |
324 | line 3 |
325 | [TheEnd] |
326 | }, |
327 | |
328 | ### c ### |
329 | 'c' => { |
330 | script => <<'[TheEnd]', |
331 | 2= |
332 | |
333 | 2,4c\ |
334 | change 2,4 line 1\ |
335 | change 2,4 line 2 |
336 | |
337 | 2= |
338 | |
339 | 3,5c\ |
340 | change 3,5 line 1\ |
341 | change 3,5 line 2 |
342 | |
343 | 3= |
344 | |
345 | [TheEnd] |
346 | input => 'text', |
347 | expect => <<'[TheEnd]', |
348 | line 1 |
349 | 2 |
350 | change 2,4 line 1 |
351 | change 2,4 line 2 |
352 | line 5 |
353 | line 6 |
354 | line 7 |
355 | line 8 |
356 | [TheEnd] |
357 | }, |
358 | |
359 | ### c1 ### |
360 | 'c1' => { |
361 | script => <<'[TheEnd]', |
362 | 1c\ |
363 | replaces line 1 |
364 | |
365 | 2,3c\ |
366 | replaces lines 2-3 |
367 | |
368 | /5/,/6/c\ |
369 | replaces lines 3-4 |
370 | |
371 | 8,10c\ |
372 | replaces lines 6-10 |
373 | [TheEnd] |
374 | input => 'text', |
375 | expect => <<'[TheEnd]', |
376 | replaces line 1 |
377 | replaces lines 2-3 |
378 | line 4 |
379 | replaces lines 3-4 |
380 | line 7 |
381 | [TheEnd] |
382 | }, |
383 | |
384 | ### c2 ### |
385 | 'c2' => { |
386 | script => <<'[TheEnd]', |
387 | 3!c\ |
388 | replace all except line 3 |
389 | |
390 | [TheEnd] |
391 | input => 'text', |
392 | expect => <<'[TheEnd]', |
393 | replace all except line 3 |
394 | replace all except line 3 |
395 | line 3 |
396 | replace all except line 3 |
397 | replace all except line 3 |
398 | replace all except line 3 |
399 | replace all except line 3 |
400 | replace all except line 3 |
401 | [TheEnd] |
402 | }, |
403 | |
404 | ### c3 ### |
405 | 'c3' => { |
406 | script => <<'[TheEnd]', |
407 | 1,4!c\ |
408 | replace all except 1-4 |
409 | |
410 | /5/,/8/!c\ |
411 | replace all except 5-8 |
412 | [TheEnd] |
413 | input => 'text', |
414 | expect => <<'[TheEnd]', |
415 | replace all except 5-8 |
416 | replace all except 5-8 |
417 | replace all except 5-8 |
418 | replace all except 5-8 |
419 | replace all except 1-4 |
420 | replace all except 1-4 |
421 | replace all except 1-4 |
422 | replace all except 1-4 |
423 | [TheEnd] |
424 | }, |
425 | |
426 | ### d ### |
427 | 'd' => { |
428 | script => <<'[TheEnd]', |
429 | # d delete pattern space, start next cycle |
430 | 2,4 d |
431 | 5 d |
432 | [TheEnd] |
433 | input => 'text', |
434 | expect => <<'[TheEnd]', |
435 | line 1 |
436 | line 6 |
437 | line 7 |
438 | line 8 |
439 | [TheEnd] |
440 | }, |
441 | |
442 | ### gh ### |
443 | 'gh' => { |
444 | script => <<'[TheEnd]', |
445 | 1h |
446 | 2g |
447 | 3h |
448 | 4g |
449 | 5q |
450 | [TheEnd] |
451 | input => 'text', |
452 | expect => <<'[TheEnd]', |
453 | line 1 |
454 | line 1 |
455 | line 3 |
456 | line 3 |
457 | line 5 |
458 | [TheEnd] |
459 | }, |
460 | |
461 | ### i ### |
462 | 'i' => { |
463 | script => <<'[TheEnd]', |
464 | 1i\ |
465 | inserted line 1.1\ |
466 | inserted line 1.2 |
467 | |
468 | 3i\ |
469 | inserted line 3.1 |
470 | 3i\ |
471 | inserted line 3.2 |
472 | [TheEnd] |
473 | input => 'text', |
474 | expect => <<'[TheEnd]', |
475 | inserted line 1.1 |
476 | inserted line 1.2 |
477 | line 1 |
478 | line 2 |
479 | inserted line 3.1 |
480 | inserted line 3.2 |
481 | line 3 |
482 | line 4 |
483 | line 5 |
484 | line 6 |
485 | line 7 |
486 | line 8 |
487 | [TheEnd] |
488 | }, |
489 | |
490 | ### n ### |
491 | 'n' => { |
492 | script => <<'[TheEnd]', |
493 | 3a\ |
494 | added line |
495 | 4a\ |
496 | added line |
497 | 5a\ |
498 | added line |
499 | 3,5n |
500 | = |
501 | d |
502 | [TheEnd] |
503 | input => 'text', |
504 | expect => <<'[TheEnd]', |
505 | 1 |
506 | 2 |
507 | line 3 |
508 | added line |
509 | 4 |
510 | line 5 |
511 | added line |
512 | 6 |
513 | 7 |
514 | 8 |
515 | [TheEnd] |
516 | }, |
517 | |
518 | ### o ### |
519 | 'o' => { |
520 | script => <<'[TheEnd]', |
521 | /abc/,/def/ s//XXX/ |
522 | // i\ |
523 | cheers |
524 | [TheEnd] |
525 | input => 'text', |
526 | expect => <<'[TheEnd]', |
527 | line 1 |
528 | line 2 |
529 | line 3 |
530 | line 4 |
531 | line 5 |
532 | line 6 |
533 | line 7 |
534 | line 8 |
535 | [TheEnd] |
536 | }, |
537 | |
538 | ### q ### |
539 | 'q' => { |
540 | script => <<'[TheEnd]', |
541 | 2a\ |
542 | append to line 2 |
543 | 3a\ |
544 | append to line 3 - should not appear in output |
545 | 3q |
546 | [TheEnd] |
547 | input => 'text', |
548 | expect => <<'[TheEnd]', |
549 | line 1 |
550 | line 2 |
551 | append to line 2 |
552 | line 3 |
553 | [TheEnd] |
554 | }, |
555 | |
556 | ### r ### |
557 | 'r' => { |
558 | datfil => [ 'r.txt', "r.txt line 1\nr.txt line 2\nr.txt line 3\n" ], |
559 | script => <<'[TheEnd]', |
560 | 2r%r.txt% |
561 | 4r %r.txt% |
562 | [TheEnd] |
563 | input => 'text', |
564 | expect => <<'[TheEnd]', |
565 | line 1 |
566 | line 2 |
567 | r.txt line 1 |
568 | r.txt line 2 |
569 | r.txt line 3 |
570 | line 3 |
571 | line 4 |
572 | r.txt line 1 |
573 | r.txt line 2 |
574 | r.txt line 3 |
575 | line 5 |
576 | line 6 |
577 | line 7 |
578 | line 8 |
579 | [TheEnd] |
580 | }, |
581 | |
582 | ### s ### |
583 | 's' => { |
584 | script => <<'[TheEnd]', |
585 | # enclose any `(a)'.. `(c)' in `-' |
586 | s/([a-z])/-\1-/g |
587 | |
588 | s/\([abc]\)/-\1-/g |
589 | [TheEnd] |
590 | input => 'text', |
591 | expect => <<'[TheEnd]', |
592 | line 1 |
593 | line 2 |
594 | line 3 |
595 | line 4 |
596 | line 5 |
597 | line 6 |
598 | line 7 |
599 | line 8 |
600 | [TheEnd] |
601 | }, |
602 | |
603 | ### s1 ### |
604 | 's1' => { |
605 | script => <<'[TheEnd]', |
606 | s/\w/@1/ |
607 | s/\y/@2/ |
608 | |
609 | s/\n/@3/ |
610 | |
611 | # this is literal { } |
612 | s/a{3}/@4/ |
613 | |
614 | # proper repetition |
615 | s/a\{3\}/a rep 3/ |
616 | [TheEnd] |
617 | input => 'text', |
618 | expect => <<'[TheEnd]', |
619 | @1ine 1 |
620 | @1ine 2 |
621 | @1ine 3 |
622 | @1ine 4 |
623 | @1ine 5 |
624 | @1ine 6 |
625 | @1ine 7 |
626 | @1ine 8 |
627 | [TheEnd] |
628 | }, |
629 | |
630 | ### t ### |
631 | 't' => { |
632 | script => join( "\n", |
633 | '#no autoprint', 's/./X/p', 's/foo/bar/p', 't bye', '=', 'p', ':bye' ), |
634 | input => 'text', |
635 | expect => <<'[TheEnd]', |
636 | Xine 1 |
637 | Xine 2 |
638 | Xine 3 |
639 | Xine 4 |
640 | Xine 5 |
641 | Xine 6 |
642 | Xine 7 |
643 | Xine 8 |
644 | [TheEnd] |
645 | }, |
646 | |
647 | ### w ### |
648 | 'w' => { |
649 | datfil => [ 'w.txt', '' ], |
650 | script => <<'[TheEnd]', |
651 | w %w.txt% |
652 | [TheEnd] |
653 | input => 'text', |
654 | expect => <<'[TheEnd]', |
655 | line 1 |
656 | line 2 |
657 | line 3 |
658 | line 4 |
659 | line 5 |
660 | line 6 |
661 | line 7 |
662 | line 8 |
663 | [TheEnd] |
664 | }, |
665 | |
666 | ### x ### |
667 | 'x' => { |
668 | script => <<'[TheEnd]', |
669 | 1h |
670 | 1d |
671 | 2x |
672 | 2,$G |
673 | [TheEnd] |
674 | input => 'text', |
675 | expect => <<'[TheEnd]', |
676 | line 1 |
677 | line 2 |
678 | line 3 |
679 | line 2 |
680 | line 4 |
681 | line 2 |
682 | line 5 |
683 | line 2 |
684 | line 6 |
685 | line 2 |
686 | line 7 |
687 | line 2 |
688 | line 8 |
689 | line 2 |
690 | [TheEnd] |
691 | }, |
692 | |
693 | ### y ### |
694 | 'y' => { |
695 | script => <<'[TheEnd]', |
696 | y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/ |
697 | y/|/\ |
698 | / |
699 | [TheEnd] |
700 | input => 'text', |
701 | expect => <<'[TheEnd]', |
702 | LINE 1 |
703 | LINE 2 |
704 | LINE 3 |
705 | LINE 4 |
706 | LINE 5 |
707 | LINE 6 |
708 | LINE 7 |
709 | LINE 8 |
710 | [TheEnd] |
711 | }, |
712 | |
713 | ### cnt ### |
714 | 'cnt' => { |
715 | script => <<'[TheEnd]', |
716 | #no autoprint |
717 | |
718 | # delete line, append NL to hold space |
719 | s/.*// |
720 | H |
721 | $!b |
722 | |
723 | # last line only: get hold |
724 | g |
725 | s/./X/g |
726 | t count |
727 | : count |
728 | s/^X/1/ |
729 | s/0X/1/ |
730 | s/1X/2/ |
731 | s/2X/3/ |
732 | s/3X/4/ |
733 | s/4X/5/ |
734 | s/5X/6/ |
735 | s/6X/7/ |
736 | s/7X/8/ |
737 | s/8X/9/ |
738 | s/9X/X0/ |
739 | t count |
740 | p |
741 | [TheEnd] |
742 | input => 'text', |
743 | expect => <<'[TheEnd]', |
744 | 8 |
745 | [TheEnd] |
746 | }, |
747 | |
748 | ### adr1 ### |
749 | 'adr1' => { |
750 | script => <<'[TheEnd]', |
751 | #no autoprint |
752 | # This script should be run on itself |
753 | /^#__DATA__$/,${ |
754 | /^#A$/p |
755 | s/^# *[0-9]* *// |
756 | /^#\*$/p |
757 | /^#\.$/p |
758 | /^#\(..\)\(..\)\2\1*$/p |
759 | /^#[abc]\{1,\}[def]\{1,\}$/p |
760 | } |
761 | #__DATA__ |
762 | #A |
763 | #* |
764 | #. |
765 | #abxyxy |
766 | #abxyxyab |
767 | #abxyxyabab |
768 | #ad |
769 | #abcdef |
770 | [TheEnd] |
771 | input => 'adr1', |
772 | expect => <<'[TheEnd]', |
773 | #A |
774 | [TheEnd] |
775 | }, |
776 | |
777 | ); |
778 | |
779 | my @aux = (); |
780 | my $ntc = 2 * keys %testcase; |
781 | plan( $ntc ); |
782 | |
783 | # temporary file names |
784 | my $script = "s2pt$$.sed"; |
785 | my $stdin = "s2pt$$.in"; |
786 | my $plsed = "s2pt$$.pl"; |
787 | |
788 | # various command lines for |
789 | my $s2p = File::Spec->catfile( File::Spec->updir(), 'x2p', 's2p' ); |
790 | my $psed = File::Spec->catfile( File::Spec->curdir(), 'psed' ); |
9ae2b9a0 |
791 | if ($^O eq 'VMS') { |
792 | # default in the .com extenson if it's not already there |
16ed4686 |
793 | $s2p = VMS::Filespec::vmsify($s2p); |
794 | $psed = VMS::Filespec::vmsify($psed); |
3e2a970d |
795 | # Converting file specs from Unix format to VMS with the extended |
796 | # character set active can result in a trailing '.' added for null |
797 | # extensions. This must be removed if the intent is to default the |
798 | # extension. |
799 | $s2p =~ s/\.$//; |
800 | $psed =~ s/\.$//; |
9ae2b9a0 |
801 | $s2p = VMS::Filespec::rmsexpand($s2p, '.com'); |
802 | $psed = VMS::Filespec::rmsexpand($psed, '.com'); |
803 | } |
939256b9 |
804 | my $sedcmd = [ $psed, '-f', $script, $stdin ]; |
805 | my $s2pcmd = [ $s2p, '-f', $script ]; |
806 | my $plcmd = [ $plsed, $stdin ]; |
807 | |
808 | # psed: we create a local copy as linking may not work on some systems. |
809 | copy( $s2p, $psed ); |
810 | push( @aux, $psed ); |
811 | |
812 | # process all testcases |
813 | # |
814 | my $indat = ''; |
815 | for my $tc ( sort keys %testcase ){ |
816 | my( $psedres, $s2pres ); |
817 | |
818 | # 1st test: run psed |
819 | # prepare the script |
820 | open( SED, ">$script" ) || goto FAIL_BOTH; |
821 | my $script = $testcase{$tc}{script}; |
822 | |
823 | # additional files for r, w: patch script, inserting temporary names |
824 | if( exists( $testcase{$tc}{datfil} ) ){ |
825 | my( $datnam, $datdat ) = @{$testcase{$tc}{datfil}}; |
826 | my $datfil = "s2pt$$" . $datnam; |
827 | push( @aux, $datfil ); |
828 | open( DAT, ">$datfil" ) || goto FAIL_BOTH; |
829 | print DAT $datdat; |
830 | close( DAT ); |
831 | $script =~ s/\%$datnam\%/$datfil/eg; |
832 | } |
833 | print SED $script; |
834 | close( SED ) || goto FAIL_BOTH; |
835 | |
836 | # prepare input |
837 | # |
838 | if( $indat ne $testcase{$tc}{input} ){ |
839 | $indat = $testcase{$tc}{input}; |
840 | open( IN, ">$stdin" ) || goto FAIL_BOTH; |
841 | print IN $input{$indat}; |
842 | close( IN ) || goto FAIL_BOTH; |
843 | } |
844 | |
9ae2b9a0 |
845 | # on VMS, runperl eats blank lines to work around |
846 | # spurious newlines in pipes |
847 | $testcase{$tc}{expect} =~ s/\n\n/\n/ if $^O eq 'VMS'; |
848 | |
939256b9 |
849 | # run and compare |
850 | # |
7b903762 |
851 | $psedres = runperl( args => $sedcmd ); |
939256b9 |
852 | is( $psedres, $testcase{$tc}{expect}, "psed $tc" ); |
853 | |
854 | # 2nd test: run s2p |
855 | # translate the sed script to a Perl program |
e69a2255 |
856 | |
7b903762 |
857 | my $perlprog = runperl( args => $s2pcmd ); |
939256b9 |
858 | open( PP, ">$plsed" ) || goto FAIL_S2P; |
859 | print PP $perlprog; |
860 | close( PP ) || goto FAIL_S2P; |
861 | |
862 | # execute generated Perl program, compare |
7b903762 |
863 | $s2pres = runperl( args => $plcmd ); |
939256b9 |
864 | is( $s2pres, $testcase{$tc}{expect}, "s2p $tc" ); |
865 | next; |
866 | |
867 | FAIL_BOTH: |
868 | fail( "psed $tc" ); |
869 | FAIL_S2P: |
870 | fail( "s2p $tc" ); |
871 | } |
872 | |
873 | END { |
874 | for my $f ( $script, $stdin, $plsed, @aux ){ |
875 | 1 while unlink( $f ); # hats off to VMS... |
876 | } |
877 | } |