home *** CD-ROM | disk | FTP | other *** search
Text File | 1995-11-05 | 966 b | 36 lines | [TEXT/MPS ] |
- Perl -Sx "{0}" {"Parameters"}
- Exit 0
- #!perl
-
- print <<'END_HEADER';
- tell application "MacPerl"
- with timeout of 300 seconds
- activate
- -- Ask for the test folder.
- -- This folder must be writeable.
- set p to Do Script "require \"StandardFile.pl\"; MacPerl::Reply(StandardFile::GetFolder(\"Where are the tests ?\"))"
- END_HEADER
-
- while ($script = shift) {
- $script =~ s/^:t//;
-
- print "\t\tDo Script \"print \\\"----- $script" . '.' x (20 - length($script)) . "\\\\n\\\"\"\n";
-
- print "\t\ttry\n";
- if ($script =~ /cpp/) {
- print "\t\t\tDo Script (p & \"$script\") with preprocess\n";
- } else {
- print "\t\t\tDo Script (p & \"$script\")\n";
- }
- print "\t\ton error\n\t\t\t-- ignore\n\t\tend try\n";
- }
-
- print <<END_FOOTER;
- Save front Window in file (p & ":MacPerlTest.Out")
- delete text in front Window
- Do Script {(p & ":TEST"), "evaluate", (p & ":MacPerlTest.Out")}
- Save front Window in file (p & ":MacPerlTest.Result")
- end timeout
- end tell
- END_FOOTER
-