mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-01-16 08:10:43 -08:00
34 lines
746 B
Perl
34 lines
746 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 "dirs";
|
|
require "headread";
|
|
require "compile";
|
|
|
|
foreach $testfile (@qa_args) {
|
|
|
|
print "Test file: $testfile.\n";
|
|
|
|
&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"};
|
|
$linkfiles =~ s/ +/ $obj_dir\//g;
|
|
$objfile = "$obj_dir/tmp_test";
|
|
unless (&compile_and_link($testfile, $objfile, $linkfiles)) {
|
|
die "Compilation failed on test ".$testfile.".\n";
|
|
}
|
|
system("sh -c \"$objfile\"");
|
|
}
|
|
|