| 1 | # -*-perl-*-
|
|---|
| 2 |
|
|---|
| 3 | $description = "The following tests the -i option and the '-' in front of \n"
|
|---|
| 4 | ."commands to test that make ignores errors in these commands\n"
|
|---|
| 5 | ."and continues processing.";
|
|---|
| 6 |
|
|---|
| 7 | $details = "This test runs two makes. The first runs on a target with a \n"
|
|---|
| 8 | ."command that has a '-' in front of it (and a command that is \n"
|
|---|
| 9 | ."intended to fail) and then a delete command after that is \n"
|
|---|
| 10 | ."intended to succeed. If make ignores the failure of the first\n"
|
|---|
| 11 | ."command as it is supposed to, then the second command should \n"
|
|---|
| 12 | ."delete a file and this is what we check for. The second make\n"
|
|---|
| 13 | ."that is run in this test is identical except that the make \n"
|
|---|
| 14 | ."command is given with the -i option instead of the '-' in \n"
|
|---|
| 15 | ."front of the command. They should run the same. ";
|
|---|
| 16 |
|
|---|
| 17 | if ($vos)
|
|---|
| 18 | {
|
|---|
| 19 | $rm_command = "delete_file";
|
|---|
| 20 | }
|
|---|
| 21 | else
|
|---|
| 22 | {
|
|---|
| 23 | $rm_command = "rm";
|
|---|
| 24 | }
|
|---|
| 25 |
|
|---|
| 26 | open(MAKEFILE,"> $makefile");
|
|---|
| 27 |
|
|---|
| 28 | # The Contents of the MAKEFILE ...
|
|---|
| 29 |
|
|---|
| 30 | print MAKEFILE "clean:\n"
|
|---|
| 31 | ."\t-$rm_command cleanit\n"
|
|---|
| 32 | ."\t$rm_command foo\n"
|
|---|
| 33 | ."clean2: \n"
|
|---|
| 34 | ."\t$rm_command cleanit\n"
|
|---|
| 35 | ."\t$rm_command foo\n";
|
|---|
| 36 |
|
|---|
| 37 | # END of Contents of MAKEFILE
|
|---|
| 38 |
|
|---|
| 39 | close(MAKEFILE);
|
|---|
| 40 |
|
|---|
| 41 | &touch("foo");
|
|---|
| 42 |
|
|---|
| 43 | unlink("cleanit");
|
|---|
| 44 | $cleanit_error = `sh -c "$rm_command cleanit 2>&1"`;
|
|---|
| 45 | $delete_error_code = $? >> 8;
|
|---|
| 46 |
|
|---|
| 47 | # TEST #1
|
|---|
| 48 | # -------
|
|---|
| 49 |
|
|---|
| 50 | $answer = "$rm_command cleanit\n"
|
|---|
| 51 | . $cleanit_error
|
|---|
| 52 | ."$make_name: [clean] Error $delete_error_code (ignored)\n"
|
|---|
| 53 | ."$rm_command foo\n";
|
|---|
| 54 |
|
|---|
| 55 | &run_make_with_options($makefile,"",&get_logfile);
|
|---|
| 56 |
|
|---|
| 57 | # If make acted as planned, it should ignore the error from the first
|
|---|
| 58 | # command in the target and execute the second which deletes the file "foo"
|
|---|
| 59 | # This file, therefore, should not exist if the test PASSES.
|
|---|
| 60 | if (-f "foo") {
|
|---|
| 61 | $test_passed = 0;
|
|---|
| 62 | }
|
|---|
| 63 |
|
|---|
| 64 | # The output for this on VOS is too hard to replicate, so we only check it
|
|---|
| 65 | # on unix.
|
|---|
| 66 | if (!$vos)
|
|---|
| 67 | {
|
|---|
| 68 | &compare_output($answer,&get_logfile(1));
|
|---|
| 69 | }
|
|---|
| 70 |
|
|---|
| 71 |
|
|---|
| 72 | &touch("foo");
|
|---|
| 73 |
|
|---|
| 74 | # TEST #2
|
|---|
| 75 | # -------
|
|---|
| 76 |
|
|---|
| 77 | $answer = "$rm_command cleanit\n"
|
|---|
| 78 | . $cleanit_error
|
|---|
| 79 | ."$make_name: [clean2] Error $delete_error_code (ignored)\n"
|
|---|
| 80 | ."$rm_command foo\n";
|
|---|
| 81 |
|
|---|
| 82 | &run_make_with_options($makefile,"clean2 -i",&get_logfile);
|
|---|
| 83 |
|
|---|
| 84 | if (-f "foo") {
|
|---|
| 85 | $test_passed = 0;
|
|---|
| 86 | }
|
|---|
| 87 |
|
|---|
| 88 | if (!$vos) {
|
|---|
| 89 | &compare_output($answer,&get_logfile(1));
|
|---|
| 90 | }
|
|---|
| 91 |
|
|---|
| 92 | 1;
|
|---|