1 | # -*-perl-*-
|
---|
2 | # Date: Tue, 11 Aug 1992 09:34:26 -0400
|
---|
3 | # From: [email protected] (Paul D. Smith)
|
---|
4 |
|
---|
5 | $description = "Test load balancing (-l) option.";
|
---|
6 |
|
---|
7 | $details = "\
|
---|
8 | This test creates a makefile where all depends on three rules
|
---|
9 | which contain the same body. Each rule checks for the existence
|
---|
10 | of a temporary file; if it exists an error is generated. If it
|
---|
11 | doesn't exist then it is created, the rule sleeps, then deletes
|
---|
12 | the temp file again. Thus if any of the rules are run in
|
---|
13 | parallel the test will fail. When make is called in this test,
|
---|
14 | it is given the -l option with a value of 0.0001. This ensures
|
---|
15 | that the load will be above this number and make will therefore
|
---|
16 | decide that it cannot run more than one job even though -j 4 was
|
---|
17 | also specified on the command line.";
|
---|
18 |
|
---|
19 | open(MAKEFILE,"> $makefile");
|
---|
20 |
|
---|
21 | # The Contents of the MAKEFILE ...
|
---|
22 |
|
---|
23 | print MAKEFILE <<'EOF';
|
---|
24 | SHELL = /bin/sh
|
---|
25 |
|
---|
26 | define test
|
---|
27 | if [ ! -f test-file ]; then \
|
---|
28 | echo >> test-file; sleep 2; rm -f test-file; \
|
---|
29 | else \
|
---|
30 | echo $@ FAILED; \
|
---|
31 | fi
|
---|
32 | endef
|
---|
33 |
|
---|
34 | all : ONE TWO THREE
|
---|
35 | ONE : ; @$(test)
|
---|
36 | TWO : ; @$(test)
|
---|
37 | THREE : ; @$(test)
|
---|
38 | EOF
|
---|
39 |
|
---|
40 |
|
---|
41 | # END of Contents of MAKEFILE
|
---|
42 |
|
---|
43 | close(MAKEFILE);
|
---|
44 |
|
---|
45 | $mkoptions = "-l 0.0001";
|
---|
46 | $mkoptions .= " -j 4" if ($parallel_jobs);
|
---|
47 |
|
---|
48 | &run_make_with_options($makefile, $mkoptions, &get_logfile);
|
---|
49 |
|
---|
50 | $slurp = &read_file_into_string (&get_logfile(1));
|
---|
51 | if ($slurp !~ /cannot enforce load limit/) {
|
---|
52 | &compare_output("", &get_logfile(1));
|
---|
53 | }
|
---|
54 |
|
---|
55 | 1;
|
---|