Blame tests/scripts/functions/warning

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: