Home | History | Annotate | Download | only in functions
      1 $description = "The following test creates a makefile to test the addprefix "
      2               ."function.";
      3 
      4 $details = "";
      5 
      6 # IF YOU NEED >1 MAKEFILE FOR THIS TEST, USE &get_tmpfile; TO GET
      7 # THE NAME OF THE MAKEFILE.  THIS INSURES CONSISTENCY AND KEEPS TRACK OF
      8 # HOW MANY MAKEFILES EXIST FOR EASY DELETION AT THE END.
      9 # EXAMPLE: $makefile2 = &get_tmpfile;
     10 
     11 
     12 open(MAKEFILE,"> $makefile");
     13 
     14 # The Contents of the MAKEFILE ...
     15 
     16 print MAKEFILE "string := \$(addprefix src${pathsep},a.b.z.foo hacks) \n"
     17               ."all: \n"
     18               ."\t\@echo \$(string) \n";
     19 
     20 # END of Contents of MAKEFILE
     21 
     22 close(MAKEFILE);
     23 
     24 &run_make_with_options($makefile,"",&get_logfile,0);
     25 
     26 # Create the answer to what should be produced by this Makefile
     27 $answer = "src${pathsep}a.b.z.foo src${pathsep}hacks\n";
     28 
     29 # COMPARE RESULTS
     30 
     31 # In this call to compare output, you should use the call &get_logfile(1)
     32 # to send the name of the last logfile created.  You may also use
     33 # the special call &get_logfile(1) which returns the same as &get_logfile(1).
     34 
     35 &compare_output($answer,&get_logfile(1));
     36 
     37 # This tells the test driver that the perl test script executed properly.
     38 1;
     39 
     40 
     41 
     42 
     43 
     44 
     45