# -*-perl-*- $description = "Test the -q option.\n"; $details = "Try various uses of -q and ensure they all give the correct results.\n"; open(MAKEFILE, "> $makefile"); # The Contents of the MAKEFILE ... print MAKEFILE <<'EOMAKE'; one: two: ; three: ; : four: ; $(.XY) five: ; \ $(.XY) six: ; \ $(.XY) $(.XY) seven: ; \ $(.XY) : foo $(.XY) EOMAKE close(MAKEFILE); # TEST 0 &run_make_with_options($makefile, "-q one", &get_logfile); $answer = ""; &compare_output($answer, &get_logfile(1)); # TEST 1 &run_make_with_options($makefile, "-q two", &get_logfile); $answer = ""; &compare_output($answer, &get_logfile(1)); # TEST 2 &run_make_with_options($makefile, "-q three", &get_logfile, 256); $answer = ""; &compare_output($answer, &get_logfile(1)); # TEST 3 &run_make_with_options($makefile, "-q four", &get_logfile); $answer = ""; &compare_output($answer, &get_logfile(1)); # TEST 4 &run_make_with_options($makefile, "-q five", &get_logfile); $answer = ""; &compare_output($answer, &get_logfile(1)); # TEST 5 &run_make_with_options($makefile, "-q six", &get_logfile); $answer = ""; &compare_output($answer, &get_logfile(1)); # TEST 6 &run_make_with_options($makefile, "-q seven", &get_logfile, 256); $answer = ""; &compare_output($answer, &get_logfile(1)); 1;