$description = "This script tests to make sure that Make looks for \n"
              ."default makefiles in the correct order \n"
              ."(GNUmakefile,makefile,Makefile)";

# Create a makefile called "GNUmakefile"
$makefile = "GNUmakefile";

open(MAKEFILE,"> $makefile");

# The Contents of the MAKEFILE ...

print MAKEFILE "FIRST:\n";
print MAKEFILE "\t\@echo It chose GNUmakefile\n";

# END of Contents of MAKEFILE

close(MAKEFILE);


# Create another makefile called "makefile"
open(MAKEFILE,"> makefile");

print MAKEFILE "SECOND:\n";
print MAKEFILE "\t\@echo It chose makefile\n";

close(MAKEFILE);


# Create another makefile called "Makefile"
open(MAKEFILE,"> Makefile");

print MAKEFILE "THIRD:\n";
print MAKEFILE "\t\@echo It chose Makefile\n";

close(MAKEFILE);


&run_make_with_options("","",&get_logfile);

# Create the answer to what should be produced by this Makefile
$answer = "It chose GNUmakefile\n";

# COMPARE RESULTS

&compare_output($answer,&get_logfile(1)) || &error ("abort
");
unlink $makefile;
  
$answer = "It chose makefile\n";


&run_make_with_options("","",&get_logfile);

&compare_output($answer,&get_logfile(1)) || &error ("abort
");
unlink "makefile";

$answer = "It chose Makefile\n";

&run_make_with_options("","",&get_logfile);

&compare_output($answer,&get_logfile(1)) || &error ("abort
");
unlink "Makefile";   









