dash-q

来自「make debug tool. You can use this tool t」· 代码 · 共 75 行

#                                                                    -*-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 = "Command-line arguments:
	\"-f work/options/dash-q.mk -q three\"
";
&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 = "Command-line arguments:
	\"-f work/options/dash-q.mk -q seven\"
";
&compare_output($answer, &get_logfile(1));

1;