tests/scripts/functions/basename

   1 $description = "The following test creates a makefile to test the suffix "
   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 := \$(basename src${pathsep}a.b.z.foo.c src${pathsep}hacks src.bar${pathsep}a.b.z.foo.c src.bar${pathsep}hacks 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 src.bar${pathsep}a.b.z.foo src.bar${pathsep}hacks 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