| 1 | $description = "The following test creates a makefile to verify\n"
|
|---|
| 2 | ."the ability of make to sort lists of object. Sort\n"
|
|---|
| 3 | ."will also remove any duplicate entries. This will also\n"
|
|---|
| 4 | ."be tested.";
|
|---|
| 5 |
|
|---|
| 6 | $details = "The make file is built with a list of object in a random order\n"
|
|---|
| 7 | ."and includes some duplicates. Make should sort all of the elements\n"
|
|---|
| 8 | ."remove all duplicates\n";
|
|---|
| 9 |
|
|---|
| 10 | open(MAKEFILE,"> $makefile");
|
|---|
| 11 |
|
|---|
| 12 | # The Contents of the MAKEFILE ...
|
|---|
| 13 |
|
|---|
| 14 | print MAKEFILE "foo := moon_light days \n"
|
|---|
| 15 | ."foo1:= jazz\n"
|
|---|
| 16 | ."bar := captured \n"
|
|---|
| 17 | ."bar2 = boy end, has rise A midnight \n"
|
|---|
| 18 | ."bar3:= \$(foo)\n"
|
|---|
| 19 | ."s1 := _by\n"
|
|---|
| 20 | ."s2 := _and_a\n"
|
|---|
| 21 | ."t1 := \$(addsuffix \$(s1), \$(bar) )\n"
|
|---|
| 22 | ."t2 := \$(addsuffix \$(s2), \$(foo1) )\n"
|
|---|
| 23 | ."t3 := \$(t2) \$(t2) \$(t2) \$(t2) \$(t2) \$(t2) \$(t2) \$(t2) \$(t2) \$(t2) \n"
|
|---|
| 24 | ."t4 := \$(t3) \$(t3) \$(t3) \$(t3) \$(t3) \$(t3) \$(t3) \$(t3) \$(t3) \$(t3) \n"
|
|---|
| 25 | ."t5 := \$(t4) \$(t4) \$(t4) \$(t4) \$(t4) \$(t4) \$(t4) \$(t4) \$(t4) \$(t4) \n"
|
|---|
| 26 | ."t6 := \$(t5) \$(t5) \$(t5) \$(t5) \$(t5) \$(t5) \$(t5) \$(t5) \$(t5) \$(t5) \n"
|
|---|
| 27 | ."t7 := \$(t6) \$(t6) \$(t6) \n"
|
|---|
| 28 | ."p1 := \$(addprefix \$(foo1), \$(s2) )\n"
|
|---|
| 29 | ."blank:= \n"
|
|---|
| 30 | ."all:\n"
|
|---|
| 31 | ."\t\@echo \$(sort \$(bar2) \$(foo) \$(addsuffix \$(s1), \$(bar) ) \$(t2) \$(bar2) \$(bar3))\n"
|
|---|
| 32 | ."\t\@echo \$(sort \$(blank) \$(foo) \$(bar2) \$(t1) \$(p1) )\n"
|
|---|
| 33 | ."\t\@echo \$(sort \$(foo) \$(bar2) \$(t1) \$(t4) \$(t5) \$(t7) \$(t6) )\n";
|
|---|
| 34 |
|
|---|
| 35 |
|
|---|
| 36 | # END of Contents of MAKEFILE
|
|---|
| 37 |
|
|---|
| 38 | close(MAKEFILE);
|
|---|
| 39 |
|
|---|
| 40 | &run_make_with_options($makefile,"",&get_logfile);
|
|---|
| 41 |
|
|---|
| 42 | # Create the answer to what should be produced by this Makefile
|
|---|
| 43 | $answer = "A boy captured_by days end, has jazz_and_a midnight moon_light rise\n"
|
|---|
| 44 | ."A boy captured_by days end, has jazz_and_a midnight moon_light rise\n"
|
|---|
| 45 | ."A boy captured_by days end, has jazz_and_a midnight moon_light rise\n";
|
|---|
| 46 |
|
|---|
| 47 | &compare_output($answer,&get_logfile(1));
|
|---|
| 48 |
|
|---|
| 49 | 1;
|
|---|
| 50 |
|
|---|
| 51 |
|
|---|
| 52 |
|
|---|
| 53 |
|
|---|
| 54 |
|
|---|
| 55 |
|
|---|
