home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / C / Applications / MacPerl 5.0.3 / MacPerl Source ƒ / MacPerl5 / MacPerlTest.Script < prev    next >
Encoding:
Text File  |  1995-11-05  |  11.4 KB  |  541 lines  |  [TEXT/MPS ]
  1. tell application "MacPerl.68K"
  2.     with timeout of 300 seconds
  3.         activate
  4.         -- Ask for the test folder. 
  5.         -- This folder must be writeable.
  6.         set p to Do Script "require \"StandardFile.pl\"; MacPerl::Reply(StandardFile::GetFolder(\"Where are the tests ?\"))"
  7.         Do Script "print \"----- :base:cond.t........\\n\""
  8.         try
  9.             Do Script (p & ":base:cond.t")
  10.         on error
  11.             -- ignore
  12.         end try
  13.         Do Script "print \"----- :base:if.t..........\\n\""
  14.         try
  15.             Do Script (p & ":base:if.t")
  16.         on error
  17.             -- ignore
  18.         end try
  19.         Do Script "print \"----- :base:lex.t.........\\n\""
  20.         try
  21.             Do Script (p & ":base:lex.t")
  22.         on error
  23.             -- ignore
  24.         end try
  25.         Do Script "print \"----- :base:pat.t.........\\n\""
  26.         try
  27.             Do Script (p & ":base:pat.t")
  28.         on error
  29.             -- ignore
  30.         end try
  31.         Do Script "print \"----- :base:term.t........\\n\""
  32.         try
  33.             Do Script (p & ":base:term.t")
  34.         on error
  35.             -- ignore
  36.         end try
  37.         Do Script "print \"----- :comp:cmdopt.t......\\n\""
  38.         try
  39.             Do Script (p & ":comp:cmdopt.t")
  40.         on error
  41.             -- ignore
  42.         end try
  43.         Do Script "print \"----- :comp:cpp.t.........\\n\""
  44.         try
  45.             Do Script (p & ":comp:cpp.t") with preprocess
  46.         on error
  47.             -- ignore
  48.         end try
  49.         Do Script "print \"----- :comp:decl.t........\\n\""
  50.         try
  51.             Do Script (p & ":comp:decl.t")
  52.         on error
  53.             -- ignore
  54.         end try
  55.         Do Script "print \"----- :comp:multiline.t...\\n\""
  56.         try
  57.             Do Script (p & ":comp:multiline.t")
  58.         on error
  59.             -- ignore
  60.         end try
  61.         Do Script "print \"----- :comp:package.t.....\\n\""
  62.         try
  63.             Do Script (p & ":comp:package.t")
  64.         on error
  65.             -- ignore
  66.         end try
  67.         Do Script "print \"----- :comp:script.t......\\n\""
  68.         try
  69.             Do Script (p & ":comp:script.t")
  70.         on error
  71.             -- ignore
  72.         end try
  73.         Do Script "print \"----- :comp:term.t........\\n\""
  74.         try
  75.             Do Script (p & ":comp:term.t")
  76.         on error
  77.             -- ignore
  78.         end try
  79.         Do Script "print \"----- :cmd:elsif.t........\\n\""
  80.         try
  81.             Do Script (p & ":cmd:elsif.t")
  82.         on error
  83.             -- ignore
  84.         end try
  85.         Do Script "print \"----- :cmd:for.t..........\\n\""
  86.         try
  87.             Do Script (p & ":cmd:for.t")
  88.         on error
  89.             -- ignore
  90.         end try
  91.         Do Script "print \"----- :cmd:mod.t..........\\n\""
  92.         try
  93.             Do Script (p & ":cmd:mod.t")
  94.         on error
  95.             -- ignore
  96.         end try
  97.         Do Script "print \"----- :cmd:subval.t.......\\n\""
  98.         try
  99.             Do Script (p & ":cmd:subval.t")
  100.         on error
  101.             -- ignore
  102.         end try
  103.         Do Script "print \"----- :cmd:switch.t.......\\n\""
  104.         try
  105.             Do Script (p & ":cmd:switch.t")
  106.         on error
  107.             -- ignore
  108.         end try
  109.         Do Script "print \"----- :cmd:while.t........\\n\""
  110.         try
  111.             Do Script (p & ":cmd:while.t")
  112.         on error
  113.             -- ignore
  114.         end try
  115.         Do Script "print \"----- :io:argv.t..........\\n\""
  116.         try
  117.             Do Script (p & ":io:argv.t")
  118.         on error
  119.             -- ignore
  120.         end try
  121.         Do Script "print \"----- :io:dup.t...........\\n\""
  122.         try
  123.             Do Script (p & ":io:dup.t")
  124.         on error
  125.             -- ignore
  126.         end try
  127.         Do Script "print \"----- :io:fs.t............\\n\""
  128.         try
  129.             Do Script (p & ":io:fs.t")
  130.         on error
  131.             -- ignore
  132.         end try
  133.         Do Script "print \"----- :io:inplace.t.......\\n\""
  134.         try
  135.             Do Script (p & ":io:inplace.t")
  136.         on error
  137.             -- ignore
  138.         end try
  139.         Do Script "print \"----- :io:pipe.t..........\\n\""
  140.         try
  141.             Do Script (p & ":io:pipe.t")
  142.         on error
  143.             -- ignore
  144.         end try
  145.         Do Script "print \"----- :io:print.t.........\\n\""
  146.         try
  147.             Do Script (p & ":io:print.t")
  148.         on error
  149.             -- ignore
  150.         end try
  151.         Do Script "print \"----- :io:tell.t..........\\n\""
  152.         try
  153.             Do Script (p & ":io:tell.t")
  154.         on error
  155.             -- ignore
  156.         end try
  157.         Do Script "print \"----- :op:append.t........\\n\""
  158.         try
  159.             Do Script (p & ":op:append.t")
  160.         on error
  161.             -- ignore
  162.         end try
  163.         Do Script "print \"----- :op:array.t.........\\n\""
  164.         try
  165.             Do Script (p & ":op:array.t")
  166.         on error
  167.             -- ignore
  168.         end try
  169.         Do Script "print \"----- :op:auto.t..........\\n\""
  170.         try
  171.             Do Script (p & ":op:auto.t")
  172.         on error
  173.             -- ignore
  174.         end try
  175.         Do Script "print \"----- :op:chop.t..........\\n\""
  176.         try
  177.             Do Script (p & ":op:chop.t")
  178.         on error
  179.             -- ignore
  180.         end try
  181.         Do Script "print \"----- :op:cond.t..........\\n\""
  182.         try
  183.             Do Script (p & ":op:cond.t")
  184.         on error
  185.             -- ignore
  186.         end try
  187.         Do Script "print \"----- :op:delete.t........\\n\""
  188.         try
  189.             Do Script (p & ":op:delete.t")
  190.         on error
  191.             -- ignore
  192.         end try
  193.         Do Script "print \"----- :op:do.t............\\n\""
  194.         try
  195.             Do Script (p & ":op:do.t")
  196.         on error
  197.             -- ignore
  198.         end try
  199.         Do Script "print \"----- :op:each.t..........\\n\""
  200.         try
  201.             Do Script (p & ":op:each.t")
  202.         on error
  203.             -- ignore
  204.         end try
  205.         Do Script "print \"----- :op:eval.t..........\\n\""
  206.         try
  207.             Do Script (p & ":op:eval.t")
  208.         on error
  209.             -- ignore
  210.         end try
  211.         Do Script "print \"----- :op:exec.t..........\\n\""
  212.         try
  213.             Do Script (p & ":op:exec.t")
  214.         on error
  215.             -- ignore
  216.         end try
  217.         Do Script "print \"----- :op:exp.t...........\\n\""
  218.         try
  219.             Do Script (p & ":op:exp.t")
  220.         on error
  221.             -- ignore
  222.         end try
  223.         Do Script "print \"----- :op:flip.t..........\\n\""
  224.         try
  225.             Do Script (p & ":op:flip.t")
  226.         on error
  227.             -- ignore
  228.         end try
  229.         Do Script "print \"----- :op:fork.t..........\\n\""
  230.         try
  231.             Do Script (p & ":op:fork.t")
  232.         on error
  233.             -- ignore
  234.         end try
  235.         Do Script "print \"----- :op:glob.t..........\\n\""
  236.         try
  237.             Do Script (p & ":op:glob.t")
  238.         on error
  239.             -- ignore
  240.         end try
  241.         Do Script "print \"----- :op:goto.t..........\\n\""
  242.         try
  243.             Do Script (p & ":op:goto.t")
  244.         on error
  245.             -- ignore
  246.         end try
  247.         Do Script "print \"----- :op:groups.t........\\n\""
  248.         try
  249.             Do Script (p & ":op:groups.t")
  250.         on error
  251.             -- ignore
  252.         end try
  253.         Do Script "print \"----- :op:index.t.........\\n\""
  254.         try
  255.             Do Script (p & ":op:index.t")
  256.         on error
  257.             -- ignore
  258.         end try
  259.         Do Script "print \"----- :op:int.t...........\\n\""
  260.         try
  261.             Do Script (p & ":op:int.t")
  262.         on error
  263.             -- ignore
  264.         end try
  265.         Do Script "print \"----- :op:join.t..........\\n\""
  266.         try
  267.             Do Script (p & ":op:join.t")
  268.         on error
  269.             -- ignore
  270.         end try
  271.         Do Script "print \"----- :op:list.t..........\\n\""
  272.         try
  273.             Do Script (p & ":op:list.t")
  274.         on error
  275.             -- ignore
  276.         end try
  277.         Do Script "print \"----- :op:local.t.........\\n\""
  278.         try
  279.             Do Script (p & ":op:local.t")
  280.         on error
  281.             -- ignore
  282.         end try
  283.         Do Script "print \"----- :op:magic.t.........\\n\""
  284.         try
  285.             Do Script (p & ":op:magic.t")
  286.         on error
  287.             -- ignore
  288.         end try
  289.         Do Script "print \"----- :op:misc.t..........\\n\""
  290.         try
  291.             Do Script (p & ":op:misc.t")
  292.         on error
  293.             -- ignore
  294.         end try
  295.         Do Script "print \"----- :op:mkdir.t.........\\n\""
  296.         try
  297.             Do Script (p & ":op:mkdir.t")
  298.         on error
  299.             -- ignore
  300.         end try
  301.         Do Script "print \"----- :op:my.t............\\n\""
  302.         try
  303.             Do Script (p & ":op:my.t")
  304.         on error
  305.             -- ignore
  306.         end try
  307.         Do Script "print \"----- :op:oct.t...........\\n\""
  308.         try
  309.             Do Script (p & ":op:oct.t")
  310.         on error
  311.             -- ignore
  312.         end try
  313.         Do Script "print \"----- :op:ord.t...........\\n\""
  314.         try
  315.             Do Script (p & ":op:ord.t")
  316.         on error
  317.             -- ignore
  318.         end try
  319.         Do Script "print \"----- :op:pack.t..........\\n\""
  320.         try
  321.             Do Script (p & ":op:pack.t")
  322.         on error
  323.             -- ignore
  324.         end try
  325.         Do Script "print \"----- :op:pat.t...........\\n\""
  326.         try
  327.             Do Script (p & ":op:pat.t")
  328.         on error
  329.             -- ignore
  330.         end try
  331.         Do Script "print \"----- :op:push.t..........\\n\""
  332.         try
  333.             Do Script (p & ":op:push.t")
  334.         on error
  335.             -- ignore
  336.         end try
  337.         Do Script "print \"----- :op:quotemeta.t.....\\n\""
  338.         try
  339.             Do Script (p & ":op:quotemeta.t")
  340.         on error
  341.             -- ignore
  342.         end try
  343.         Do Script "print \"----- :op:rand.t..........\\n\""
  344.         try
  345.             Do Script (p & ":op:rand.t")
  346.         on error
  347.             -- ignore
  348.         end try
  349.         Do Script "print \"----- :op:range.t.........\\n\""
  350.         try
  351.             Do Script (p & ":op:range.t")
  352.         on error
  353.             -- ignore
  354.         end try
  355.         Do Script "print \"----- :op:read.t..........\\n\""
  356.         try
  357.             Do Script (p & ":op:read.t")
  358.         on error
  359.             -- ignore
  360.         end try
  361.         Do Script "print \"----- :op:readdir.t.......\\n\""
  362.         try
  363.             Do Script (p & ":op:readdir.t")
  364.         on error
  365.             -- ignore
  366.         end try
  367.         Do Script "print \"----- :op:ref.t...........\\n\""
  368.         try
  369.             Do Script (p & ":op:ref.t")
  370.         on error
  371.             -- ignore
  372.         end try
  373.         Do Script "print \"----- :op:regexp.t........\\n\""
  374.         try
  375.             Do Script (p & ":op:regexp.t")
  376.         on error
  377.             -- ignore
  378.         end try
  379.         Do Script "print \"----- :op:repeat.t........\\n\""
  380.         try
  381.             Do Script (p & ":op:repeat.t")
  382.         on error
  383.             -- ignore
  384.         end try
  385.         Do Script "print \"----- :op:sleep.t.........\\n\""
  386.         try
  387.             Do Script (p & ":op:sleep.t")
  388.         on error
  389.             -- ignore
  390.         end try
  391.         Do Script "print \"----- :op:sort.t..........\\n\""
  392.         try
  393.             Do Script (p & ":op:sort.t")
  394.         on error
  395.             -- ignore
  396.         end try
  397.         Do Script "print \"----- :op:split.t.........\\n\""
  398.         try
  399.             Do Script (p & ":op:split.t")
  400.         on error
  401.             -- ignore
  402.         end try
  403.         Do Script "print \"----- :op:sprintf.t.......\\n\""
  404.         try
  405.             Do Script (p & ":op:sprintf.t")
  406.         on error
  407.             -- ignore
  408.         end try
  409.         Do Script "print \"----- :op:stat.t..........\\n\""
  410.         try
  411.             Do Script (p & ":op:stat.t")
  412.         on error
  413.             -- ignore
  414.         end try
  415.         Do Script "print \"----- :op:study.t.........\\n\""
  416.         try
  417.             Do Script (p & ":op:study.t")
  418.         on error
  419.             -- ignore
  420.         end try
  421.         Do Script "print \"----- :op:subst.t.........\\n\""
  422.         try
  423.             Do Script (p & ":op:subst.t")
  424.         on error
  425.             -- ignore
  426.         end try
  427.         Do Script "print \"----- :op:substr.t........\\n\""
  428.         try
  429.             Do Script (p & ":op:substr.t")
  430.         on error
  431.             -- ignore
  432.         end try
  433.         Do Script "print \"----- :op:time.t..........\\n\""
  434.         try
  435.             Do Script (p & ":op:time.t")
  436.         on error
  437.             -- ignore
  438.         end try
  439.         Do Script "print \"----- :op:undef.t.........\\n\""
  440.         try
  441.             Do Script (p & ":op:undef.t")
  442.         on error
  443.             -- ignore
  444.         end try
  445.         Do Script "print \"----- :op:unshift.t.......\\n\""
  446.         try
  447.             Do Script (p & ":op:unshift.t")
  448.         on error
  449.             -- ignore
  450.         end try
  451.         Do Script "print \"----- :op:vec.t...........\\n\""
  452.         try
  453.             Do Script (p & ":op:vec.t")
  454.         on error
  455.             -- ignore
  456.         end try
  457.         Do Script "print \"----- :op:write.t.........\\n\""
  458.         try
  459.             Do Script (p & ":op:write.t")
  460.         on error
  461.             -- ignore
  462.         end try
  463.         Do Script "print \"----- :lib:anydbm.t.......\\n\""
  464.         try
  465.             Do Script (p & ":lib:anydbm.t")
  466.         on error
  467.             -- ignore
  468.         end try
  469.         Do Script "print \"----- :lib:bigint.t.......\\n\""
  470.         try
  471.             Do Script (p & ":lib:bigint.t")
  472.         on error
  473.             -- ignore
  474.         end try
  475.         Do Script "print \"----- :lib:db-btree.t.....\\n\""
  476.         try
  477.             Do Script (p & ":lib:db-btree.t")
  478.         on error
  479.             -- ignore
  480.         end try
  481.         Do Script "print \"----- :lib:db-hash.t......\\n\""
  482.         try
  483.             Do Script (p & ":lib:db-hash.t")
  484.         on error
  485.             -- ignore
  486.         end try
  487.         Do Script "print \"----- :lib:db-recno.t.....\\n\""
  488.         try
  489.             Do Script (p & ":lib:db-recno.t")
  490.         on error
  491.             -- ignore
  492.         end try
  493.         Do Script "print \"----- :lib:english.t......\\n\""
  494.         try
  495.             Do Script (p & ":lib:english.t")
  496.         on error
  497.             -- ignore
  498.         end try
  499.         Do Script "print \"----- :lib:gdbm.t.........\\n\""
  500.         try
  501.             Do Script (p & ":lib:gdbm.t")
  502.         on error
  503.             -- ignore
  504.         end try
  505.         Do Script "print \"----- :lib:ndbm.t.........\\n\""
  506.         try
  507.             Do Script (p & ":lib:ndbm.t")
  508.         on error
  509.             -- ignore
  510.         end try
  511.         Do Script "print \"----- :lib:odbm.t.........\\n\""
  512.         try
  513.             Do Script (p & ":lib:odbm.t")
  514.         on error
  515.             -- ignore
  516.         end try
  517.         Do Script "print \"----- :lib:posix.t........\\n\""
  518.         try
  519.             Do Script (p & ":lib:posix.t")
  520.         on error
  521.             -- ignore
  522.         end try
  523.         Do Script "print \"----- :lib:sdbm.t.........\\n\""
  524.         try
  525.             Do Script (p & ":lib:sdbm.t")
  526.         on error
  527.             -- ignore
  528.         end try
  529.         Do Script "print \"----- :lib:soundex.t......\\n\""
  530.         try
  531.             Do Script (p & ":lib:soundex.t")
  532.         on error
  533.             -- ignore
  534.         end try
  535.         Save front Window in file (p & ":MacPerlTest.Out")
  536.         delete text in front Window
  537.         Do Script {(p & ":TEST"), "evaluate", (p & ":MacPerlTest.Out")}
  538.         Save front Window in file (p & ":MacPerlTest.Result")
  539.     end timeout
  540. end tell
  541.