sort

Linux 下的编译工具

$description = "The following test creates a makefile to verify\n"
              ."the ability of make to sort lists of object. Sort\n"
              ."will also remove any duplicate entries. This will also\n"
              ."be tested.";

$details = "The make file is built with a list of object in a random order\n"
          ."and includes some duplicates. Make should sort all of the elements\n"
          ."remove all duplicates\n";

open(MAKEFILE,"> $makefile");

# The Contents of the MAKEFILE ...

print MAKEFILE "foo := moon_light days \n"
              ."foo1:= jazz\n"
              ."bar := captured \n"
              ."bar2 = boy end, has rise A midnight \n"
              ."bar3:= \$(foo)\n"
              ."s1  := _by\n"
              ."s2  := _and_a\n"
              ."t1  := \$(addsuffix \$(s1), \$(bar) )\n"
              ."t2  := \$(addsuffix \$(s2), \$(foo1) )\n" 
              ."t3  := \$(t2) \$(t2) \$(t2) \$(t2) \$(t2) \$(t2) \$(t2) \$(t2) \$(t2) \$(t2) \n"
              ."t4  := \$(t3) \$(t3) \$(t3) \$(t3) \$(t3) \$(t3) \$(t3) \$(t3) \$(t3) \$(t3) \n"
              ."t5  := \$(t4) \$(t4) \$(t4) \$(t4) \$(t4) \$(t4) \$(t4) \$(t4) \$(t4) \$(t4) \n"
              ."t6  := \$(t5) \$(t5) \$(t5) \$(t5) \$(t5) \$(t5) \$(t5) \$(t5) \$(t5) \$(t5) \n"
              ."t7  := \$(t6) \$(t6) \$(t6) \n"
              ."p1  := \$(addprefix \$(foo1), \$(s2) )\n"
              ."blank:= \n"
              ."all:\n"
              ."\t\@echo \$(sort \$(bar2) \$(foo)  \$(addsuffix \$(s1), \$(bar) ) \$(t2) \$(bar2) \$(bar3))\n"
              ."\t\@echo \$(sort \$(blank) \$(foo) \$(bar2) \$(t1) \$(p1) )\n"
              ."\t\@echo \$(sort \$(foo) \$(bar2) \$(t1) \$(t4) \$(t5) \$(t7) \$(t6) )\n";


# END of Contents of MAKEFILE

close(MAKEFILE);

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

# Create the answer to what should be produced by this Makefile
$answer = "A boy captured_by days end, has jazz_and_a midnight moon_light rise\n"
         ."A boy captured_by days end, has jazz_and_a midnight moon_light rise\n"
         ."A boy captured_by days end, has jazz_and_a midnight moon_light rise\n";

&compare_output($answer,&get_logfile(1));

1;