error

Linux 下的编译工具

#                                                                    -*-Perl-*-

$description = "\
The following test creates a makefile to test the error function.";

$details = "";

open(MAKEFILE,"> $makefile");

print MAKEFILE 'err = $(error Error found!)

ifdef ERROR1
$(error error is $(ERROR1))
endif

ifdef ERROR2
$(error error is $(ERROR2))
endif

ifdef ERROR3
all: some; @echo $(error error is $(ERROR3))
endif

ifdef ERROR4
all: some; @echo error is $(ERROR4)
	@echo $(error error is $(ERROR4))
endif

some: ; @echo Some stuff

testvar: ; @: $(err)
';

close(MAKEFILE);

# Test #1

&run_make_with_options($makefile, "ERROR1=yes", &get_logfile, 512);
$answer = "$makefile:4: *** error is yes.  Stop.\n";
&compare_output($answer,&get_logfile(1));

# Test #2

&run_make_with_options($makefile, "ERROR2=no", &get_logfile, 512);
$answer = "$makefile:8: *** error is no.  Stop.\n";
&compare_output($answer,&get_logfile(1));

# Test #3

&run_make_with_options($makefile, "ERROR3=maybe", &get_logfile, 512);
$answer = "Some stuff\n$makefile:12: *** error is maybe.  Stop.\n";
&compare_output($answer,&get_logfile(1));

# Test #4

&run_make_with_options($makefile, "ERROR4=definitely", &get_logfile, 512);
$answer = "Some stuff\n$makefile:16: *** error is definitely.  Stop.\n";
&compare_output($answer,&get_logfile(1));

# Test #5

&run_make_with_options($makefile, "testvar", &get_logfile, 512);
$answer = "$makefile:22: *** Error found!.  Stop.\n";
&compare_output($answer,&get_logfile(1));

# This tells the test driver that the perl test script executed properly.
1;