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