home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / C / Applications / MacPerl 5.0.3 / MacPerl Source ƒ / MacPerl5 / MakeMacPerlTest < prev    next >
Encoding:
Text File  |  1995-11-05  |  966 b   |  36 lines  |  [TEXT/MPS ]

  1. Perl -Sx "{0}" {"Parameters"}
  2. Exit 0
  3. #!perl
  4.  
  5. print <<'END_HEADER';
  6. tell application "MacPerl"
  7.     with timeout of 300 seconds
  8.         activate
  9.         -- Ask for the test folder. 
  10.         -- This folder must be writeable.
  11.         set p to Do Script "require \"StandardFile.pl\"; MacPerl::Reply(StandardFile::GetFolder(\"Where are the tests ?\"))"
  12. END_HEADER
  13.  
  14. while ($script = shift) {
  15.     $script =~ s/^:t//;
  16.     
  17.     print "\t\tDo Script \"print \\\"----- $script" . '.' x (20 - length($script)) . "\\\\n\\\"\"\n";
  18.     
  19.     print "\t\ttry\n";
  20.     if ($script =~ /cpp/) {
  21.         print "\t\t\tDo Script (p & \"$script\") with preprocess\n";
  22.     } else {
  23.         print "\t\t\tDo Script (p & \"$script\")\n";
  24.     }
  25.     print "\t\ton error\n\t\t\t-- ignore\n\t\tend try\n";
  26. }
  27.  
  28. print <<END_FOOTER;
  29.         Save front Window in file (p & ":MacPerlTest.Out")
  30.         delete text in front Window
  31.         Do Script {(p & ":TEST"), "evaluate", (p & ":MacPerlTest.Out")}
  32.         Save front Window in file (p & ":MacPerlTest.Result")
  33.     end timeout
  34. end tell
  35. END_FOOTER
  36.