mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-01-15 15:50:57 -08:00
30 lines
628 B
Perl
30 lines
628 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) {
|
|
|
|
&readheader($testfile, 0);
|
|
unless ($test_header{"language"} eq "c") {
|
|
die "Don't know how to run test in this language.\n";
|
|
}
|
|
|
|
$linkfiles = $test_header{"link"};
|
|
$objfile = "$obj_dir/tmp_test";
|
|
|
|
unless (&compile_and_link($testfile, $objfile, $linkfiles)) {
|
|
die "Compilation failed on test ".$testfile.".\n";
|
|
}
|
|
&try_test($objfile);
|
|
}
|
|
|