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 \"GUSI.ph\"; &MacPerl'Reply(&MacPerl'Choose(&GUSI'AF_FILE, 0, \"Where are the tests ?\", \"\", &GUSI'CHOOSE_DIR))"
		Do Script "print \"----- :base:cond.t........\\n\""
		Do Script (p & ":base:cond.t")
		Do Script "print \"----- :base:if.t..........\\n\""
		Do Script (p & ":base:if.t")
		Do Script "print \"----- :base:lex.t.........\\n\""
		Do Script (p & ":base:lex.t")
		Do Script "print \"----- :base:pat.t.........\\n\""
		Do Script (p & ":base:pat.t")
		Do Script "print \"----- :base:term.t........\\n\""
		Do Script (p & ":base:term.t")
		Do Script "print \"----- :cmd:elsif.t........\\n\""
		Do Script (p & ":cmd:elsif.t")
		Do Script "print \"----- :cmd:for.t..........\\n\""
		Do Script (p & ":cmd:for.t")
		Do Script "print \"----- :cmd:mod.t..........\\n\""
		Do Script (p & ":cmd:mod.t")
		Do Script "print \"----- :cmd:subval.t.......\\n\""
		Do Script (p & ":cmd:subval.t")
		Do Script "print \"----- :cmd:switch.t.......\\n\""
		Do Script (p & ":cmd:switch.t")
		Do Script "print \"----- :cmd:while.t........\\n\""
		Do Script (p & ":cmd:while.t")
		Do Script "print \"----- :comp:cmdopt.t......\\n\""
		Do Script (p & ":comp:cmdopt.t")
		Do Script "print \"----- :comp:cpp.t.........\\n\""
		Do Script (p & ":comp:cpp.t") with preprocess
		Do Script "print \"----- :comp:decl.t........\\n\""
		Do Script (p & ":comp:decl.t")
		Do Script "print \"----- :comp:multiline.t...\\n\""
		Do Script (p & ":comp:multiline.t")
		Do Script "print \"----- :comp:package.t.....\\n\""
		Do Script (p & ":comp:package.t")
		Do Script "print \"----- :comp:script.t......\\n\""
		Do Script (p & ":comp:script.t")
		Do Script "print \"----- :comp:term.t........\\n\""
		Do Script (p & ":comp:term.t")
		Do Script "print \"----- :io:argv.t..........\\n\""
		Do Script (p & ":io:argv.t")
		Do Script "print \"----- :io:dup.t...........\\n\""
		Do Script (p & ":io:dup.t")
		Do Script "print \"----- :io:fs.t............\\n\""
		Do Script (p & ":io:fs.t")
		Do Script "print \"----- :io:inplace.t.......\\n\""
		Do Script (p & ":io:inplace.t")
		Do Script "print \"----- :io:pipe.t..........\\n\""
		Do Script (p & ":io:pipe.t")
		Do Script "print \"----- :io:print.t.........\\n\""
		Do Script (p & ":io:print.t")
		Do Script "print \"----- :io:tell.t..........\\n\""
		Do Script (p & ":io:tell.t")
		Do Script "print \"----- :lib:big.t..........\\n\""
		Do Script (p & ":lib:big.t")
		Do Script "print \"----- :op:append.t........\\n\""
		Do Script (p & ":op:append.t")
		Do Script "print \"----- :op:array.t.........\\n\""
		Do Script (p & ":op:array.t")
		Do Script "print \"----- :op:auto.t..........\\n\""
		Do Script (p & ":op:auto.t")
		Do Script "print \"----- :op:chop.t..........\\n\""
		Do Script (p & ":op:chop.t")
		Do Script "print \"----- :op:cond.t..........\\n\""
		Do Script (p & ":op:cond.t")
		Do Script "print \"----- :op:dbm.t...........\\n\""
		Do Script (p & ":op:dbm.t")
		Do Script "print \"----- :op:delete.t........\\n\""
		Do Script (p & ":op:delete.t")
		Do Script "print \"----- :op:do.t............\\n\""
		Do Script (p & ":op:do.t")
		Do Script "print \"----- :op:each.t..........\\n\""
		Do Script (p & ":op:each.t")
		Do Script "print \"----- :op:eval.t..........\\n\""
		Do Script (p & ":op:eval.t")
		Do Script "print \"----- :op:exec.t..........\\n\""
		Do Script (p & ":op:exec.t")
		Do Script "print \"----- :op:exp.t...........\\n\""
		Do Script (p & ":op:exp.t")
		Do Script "print \"----- :op:flip.t..........\\n\""
		Do Script (p & ":op:flip.t")
		Do Script "print \"----- :op:fork.t..........\\n\""
		Do Script (p & ":op:fork.t")
		Do Script "print \"----- :op:glob.t..........\\n\""
		Do Script (p & ":op:glob.t")
		Do Script "print \"----- :op:goto.t..........\\n\""
		Do Script (p & ":op:goto.t")
		Do Script "print \"----- :op:groups.t........\\n\""
		Do Script (p & ":op:groups.t")
		Do Script "print \"----- :op:index.t.........\\n\""
		Do Script (p & ":op:index.t")
		Do Script "print \"----- :op:int.t...........\\n\""
		Do Script (p & ":op:int.t")
		Do Script "print \"----- :op:join.t..........\\n\""
		Do Script (p & ":op:join.t")
		Do Script "print \"----- :op:list.t..........\\n\""
		Do Script (p & ":op:list.t")
		Do Script "print \"----- :op:local.t.........\\n\""
		Do Script (p & ":op:local.t")
		Do Script "print \"----- :op:magic.t.........\\n\""
		Do Script (p & ":op:magic.t")
		Do Script "print \"----- :op:mkdir.t.........\\n\""
		Do Script (p & ":op:mkdir.t")
		Do Script "print \"----- :op:oct.t...........\\n\""
		Do Script (p & ":op:oct.t")
		Do Script "print \"----- :op:ord.t...........\\n\""
		Do Script (p & ":op:ord.t")
		Do Script "print \"----- :op:pack.t..........\\n\""
		Do Script (p & ":op:pack.t")
		Do Script "print \"----- :op:pat.t...........\\n\""
		Do Script (p & ":op:pat.t")
		Do Script "print \"----- :op:push.t..........\\n\""
		Do Script (p & ":op:push.t")
		Do Script "print \"----- :op:range.t.........\\n\""
		Do Script (p & ":op:range.t")
		Do Script "print \"----- :op:read.t..........\\n\""
		Do Script (p & ":op:read.t")
		Do Script "print \"----- :op:readdir.t.......\\n\""
		Do Script (p & ":op:readdir.t")
		Do Script "print \"----- :op:regexp.t........\\n\""
		Do Script (p & ":op:regexp.t")
		Do Script "print \"----- :op:repeat.t........\\n\""
		Do Script (p & ":op:repeat.t")
		Do Script "print \"----- :op:s.t.............\\n\""
		Do Script (p & ":op:s.t")
		Do Script "print \"----- :op:sleep.t.........\\n\""
		Do Script (p & ":op:sleep.t")
		Do Script "print \"----- :op:sort.t..........\\n\""
		Do Script (p & ":op:sort.t")
		Do Script "print \"----- :op:split.t.........\\n\""
		Do Script (p & ":op:split.t")
		Do Script "print \"----- :op:sprintf.t.......\\n\""
		Do Script (p & ":op:sprintf.t")
		Do Script "print \"----- :op:stat.t..........\\n\""
		Do Script (p & ":op:stat.t")
		Do Script "print \"----- :op:study.t.........\\n\""
		Do Script (p & ":op:study.t")
		Do Script "print \"----- :op:substr.t........\\n\""
		Do Script (p & ":op:substr.t")
		Do Script "print \"----- :op:time.t..........\\n\""
		Do Script (p & ":op:time.t")
		Do Script "print \"----- :op:undef.t.........\\n\""
		Do Script (p & ":op:undef.t")
		Do Script "print \"----- :op:unshift.t.......\\n\""
		Do Script (p & ":op:unshift.t")
		Do Script "print \"----- :op:vec.t...........\\n\""
		Do Script (p & ":op:vec.t")
		Do Script "print \"----- :op:write.t.........\\n\""
		Do Script (p & ":op:write.t")
		Save front Window in file (p & ":MacPerlTest.Out")
		delete text in front Window
		Do Script {(p & ":MacPerlTest"), "evaluate", (p & ":MacPerlTest.Out")}
		Save front Window in file (p & ":MacPerlTest.Result")
	end timeout
end tell

.