#                                                                    -*-perl-*-

$description = "Test special GNU make variables.";

$details = "";

$makefile2 = &get_tmpfile;


open(MAKEFILE, "> $makefile");

print MAKEFILE <<'EOF';

X1 := $(sort $(filter FOO BAR,$(.VARIABLES)))

FOO := foo

X2 := $(sort $(filter FOO BAR,$(.VARIABLES)))

BAR := bar

all:
	@echo X1 = $(X1)
	@echo X2 = $(X2)
	@echo LAST = $(sort $(filter FOO BAR,$(.VARIABLES)))

EOF

close(MAKEFILE);

# TEST #1
# -------

&run_make_with_options($makefile, "", &get_logfile);
$answer = "X1 =\nX2 = FOO\nLAST = BAR FOO\n";
&compare_output($answer, &get_logfile(1));




# open(MAKEFILE, "> $makefile2");

# print MAKEFILE <<'EOF';

# X1 := $(sort $(.TARGETS))

# all: foo
# 	@echo X1 = $(X1)
# 	@echo X2 = $(X2)
# 	@echo LAST = $(sort $(.TARGETS))

# X2 := $(sort $(.TARGETS))

# foo:

# EOF

# close(MAKEFILE);

# # TEST #2
# # -------

# &run_make_with_options($makefile2, "", &get_logfile);
# $answer = "X1 =\nX2 = all\nLAST = all foo\n";
# &compare_output($answer, &get_logfile(1));


1;
