|
Packit |
26a39e |
# -*-Perl-*-
|
|
Packit |
26a39e |
|
|
Packit |
26a39e |
$description = "\
|
|
Packit |
26a39e |
The following test creates a makefile to test the warning function.";
|
|
Packit |
26a39e |
|
|
Packit |
26a39e |
$details = "";
|
|
Packit |
26a39e |
|
|
Packit |
26a39e |
open(MAKEFILE,"> $makefile");
|
|
Packit |
26a39e |
|
|
Packit |
26a39e |
print MAKEFILE <<'EOF';
|
|
Packit |
26a39e |
ifdef WARNING1
|
|
Packit |
26a39e |
$(warning warning is $(WARNING1))
|
|
Packit |
26a39e |
endif
|
|
Packit |
26a39e |
|
|
Packit |
26a39e |
ifdef WARNING2
|
|
Packit |
26a39e |
$(warning warning is $(WARNING2))
|
|
Packit |
26a39e |
endif
|
|
Packit |
26a39e |
|
|
Packit |
26a39e |
ifdef WARNING3
|
|
Packit |
26a39e |
all: some; @echo hi $(warning warning is $(WARNING3))
|
|
Packit |
26a39e |
endif
|
|
Packit |
26a39e |
|
|
Packit |
26a39e |
ifdef WARNING4
|
|
Packit |
26a39e |
all: some; @echo hi
|
|
Packit |
26a39e |
@echo there $(warning warning is $(WARNING4))
|
|
Packit |
26a39e |
endif
|
|
Packit |
26a39e |
|
|
Packit |
26a39e |
some: ; @echo Some stuff
|
|
Packit |
26a39e |
|
|
Packit |
26a39e |
EOF
|
|
Packit |
26a39e |
|
|
Packit |
26a39e |
close(MAKEFILE);
|
|
Packit |
26a39e |
|
|
Packit |
26a39e |
# Test #1
|
|
Packit |
26a39e |
|
|
Packit |
26a39e |
&run_make_with_options($makefile, "WARNING1=yes", &get_logfile, 0);
|
|
Packit |
26a39e |
$answer = "$makefile:2: warning is yes\nSome stuff\n";
|
|
Packit |
26a39e |
&compare_output($answer,&get_logfile(1));
|
|
Packit |
26a39e |
|
|
Packit |
26a39e |
# Test #2
|
|
Packit |
26a39e |
|
|
Packit |
26a39e |
&run_make_with_options($makefile, "WARNING2=no", &get_logfile, 0);
|
|
Packit |
26a39e |
$answer = "$makefile:6: warning is no\nSome stuff\n";
|
|
Packit |
26a39e |
&compare_output($answer,&get_logfile(1));
|
|
Packit |
26a39e |
|
|
Packit |
26a39e |
# Test #3
|
|
Packit |
26a39e |
|
|
Packit |
26a39e |
&run_make_with_options($makefile, "WARNING3=maybe", &get_logfile, 0);
|
|
Packit |
26a39e |
$answer = "Some stuff\n$makefile:10: warning is maybe\nhi\n";
|
|
Packit |
26a39e |
&compare_output($answer,&get_logfile(1));
|
|
Packit |
26a39e |
|
|
Packit |
26a39e |
# Test #4
|
|
Packit |
26a39e |
|
|
Packit |
26a39e |
&run_make_with_options($makefile, "WARNING4=definitely", &get_logfile, 0);
|
|
Packit |
26a39e |
$answer = "Some stuff\n$makefile:15: warning is definitely\nhi\nthere\n";
|
|
Packit |
26a39e |
&compare_output($answer,&get_logfile(1));
|
|
Packit |
26a39e |
|
|
Packit |
26a39e |
# Test linenumber offset
|
|
Packit |
26a39e |
|
|
Packit |
26a39e |
run_make_test(q!
|
|
Packit |
26a39e |
all: one two
|
|
Packit |
26a39e |
$(warning in $@ line 3)
|
|
Packit |
26a39e |
@true
|
|
Packit |
26a39e |
$(warning in $@ line 5)
|
|
Packit |
26a39e |
|
|
Packit |
26a39e |
one two:
|
|
Packit |
26a39e |
$(warning in $@ line 8)
|
|
Packit |
26a39e |
@true
|
|
Packit |
26a39e |
$(warning in $@ line 10)
|
|
Packit |
26a39e |
!,
|
|
Packit |
26a39e |
'', "#MAKEFILE#:8: in one line 8
|
|
Packit |
26a39e |
#MAKEFILE#:10: in one line 10
|
|
Packit |
26a39e |
#MAKEFILE#:8: in two line 8
|
|
Packit |
26a39e |
#MAKEFILE#:10: in two line 10
|
|
Packit |
26a39e |
#MAKEFILE#:3: in all line 3
|
|
Packit |
26a39e |
#MAKEFILE#:5: in all line 5\n");
|
|
Packit |
26a39e |
|
|
Packit |
26a39e |
# This tells the test driver that the perl test script executed properly.
|
|
Packit |
26a39e |
1;
|
|
Packit |
26a39e |
|
|
Packit |
26a39e |
### Local Variables:
|
|
Packit |
26a39e |
### eval: (setq whitespace-action (delq 'auto-cleanup whitespace-action))
|
|
Packit |
26a39e |
### End:
|