| # -*-perl-*- |
| |
| $description = "Test the filter-out function."; |
| |
| $details = "The makefile created in this test has two variables. The |
| filter-out function is first used to discard names ending in |
| .o with a single simple pattern. The second filter-out function |
| augments the simple pattern with three literal names, which are |
| also added to the text argument. This tests an internal hash table |
| which is only used if there are multiple literals present in both |
| the pattern and text arguments. The result of both filter-out |
| functions is the same single .elc name.\n"; |
| |
| open(MAKEFILE,"> $makefile"); |
| |
| print MAKEFILE <<'EOF'; |
| files1 := $(filter-out %.o, foo.elc bar.o lose.o) |
| files2 := $(filter-out foo.i bar.i lose.i %.o, foo.i bar.i lose.i foo.elc bar.o lose.o) |
| all: ; @echo $(files1) $(files2) |
| EOF |
| |
| close(MAKEFILE); |
| |
| &run_make_with_options($makefile, "", &get_logfile, 0); |
| $answer = "foo.elc foo.elc\n"; |
| &compare_output($answer,&get_logfile(1)); |
| |
| 1; |