mirror of
https://git.savannah.gnu.org/git/make.git
synced 2024-12-29 08:09:02 +00:00
bb4d040fad
Add a new feature to the test suite suggested by Icarus Sparry: set a timer before invoking a test, so that if it loops infinitely we will wake up and have a chance to kill the process and continue.
56 lines
1.5 KiB
Perl
56 lines
1.5 KiB
Perl
# -*-perl-*-
|
|
# Date: Tue, 11 Aug 1992 09:34:26 -0400
|
|
# From: pds@lemming.webo.dg.com (Paul D. Smith)
|
|
|
|
$description = "Test load balancing (-l) option.";
|
|
|
|
$details = "\
|
|
This test creates a makefile where all depends on three rules
|
|
which contain the same body. Each rule checks for the existence
|
|
of a temporary file; if it exists an error is generated. If it
|
|
doesn't exist then it is created, the rule sleeps, then deletes
|
|
the temp file again. Thus if any of the rules are run in
|
|
parallel the test will fail. When make is called in this test,
|
|
it is given the -l option with a value of 0.0001. This ensures
|
|
that the load will be above this number and make will therefore
|
|
decide that it cannot run more than one job even though -j 4 was
|
|
also specified on the command line.";
|
|
|
|
open(MAKEFILE,"> $makefile");
|
|
|
|
# The Contents of the MAKEFILE ...
|
|
|
|
print MAKEFILE <<'EOF';
|
|
SHELL = /bin/sh
|
|
|
|
define test
|
|
if [ ! -f test-file ]; then \
|
|
echo >> test-file; sleep 2; rm -f test-file; \
|
|
else \
|
|
echo $@ FAILED; \
|
|
fi
|
|
endef
|
|
|
|
all : ONE TWO THREE
|
|
ONE : ; @$(test)
|
|
TWO : ; @$(test)
|
|
THREE : ; @$(test)
|
|
EOF
|
|
|
|
|
|
# END of Contents of MAKEFILE
|
|
|
|
close(MAKEFILE);
|
|
|
|
$mkoptions = "-l 0.0001";
|
|
$mkoptions .= " -j 4" if ($parallel_jobs);
|
|
|
|
# We have to wait longer than the default (5s).
|
|
&run_make_with_options($makefile, $mkoptions, &get_logfile, 0, 8);
|
|
|
|
$slurp = &read_file_into_string (&get_logfile(1));
|
|
if ($slurp !~ /cannot enforce load limit/) {
|
|
&compare_output("", &get_logfile(1));
|
|
}
|
|
|
|
1;
|