tests/scripts/functions/addsuffix

   1 #                                                                    -*-perl-*-
   2 $description = "Test the addsuffix function.";
   3
   4 $details = "";
   5
   6
   7 open(MAKEFILE,"> $makefile");
   8
   9 # The Contents of the MAKEFILE ...
  10
  11 print MAKEFILE <<EOMAKE;
  12 string := \$(addsuffix .c,src${pathsep}a.b.z.foo hacks)
  13 one: ; \@echo \$(string)
  14
  15 two: ; \@echo \$(addsuffix foo,)
  16 EOMAKE
  17
  18 close(MAKEFILE);
  19
  20
  21 # TEST 0
  22
  23 &run_make_with_options($makefile, "", &get_logfile);
  24 $answer = "src${pathsep}a.b.z.foo.c hacks.c\n";
  25 &compare_output($answer,&get_logfile(1));
  26
  27
  28 # TEST 1
  29
  30 &run_make_with_options($makefile, "two", &get_logfile);
  31 $answer = "\n";
  32 &compare_output($answer,&get_logfile(1));
  33
  34
  35 # This tells the test driver that the perl test script executed properly.
  36 1;