1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-17 16:41:17 -08:00
emacs/mps/qa/test/script/commands/try
Richard Tucker 95d6bdc11d Provide internal interface to try
Copied from Perforce
 Change: 18986
 ServerID: perforce.ravenbrook.com
1997-11-13 14:12:42 +00:00

18 lines
325 B
Perl

#!/usr/local/bin/perl
#
# run tests interactively (allows for user input, immediate results,
# &c, but doesn't give results in standard format)
&options(
"MPS_INCLUDE_DIR",
"MPS_LINK_OBJ",
"INTERFACE_VERSION",
"PLATFORM"
);
require "require";
foreach $testfile (@qa_args) {
&try_test($testfile, "yes", "results");
}