tests/scripts/functions/call

   1 #                                                                    -*-perl-*-
   2 $description = "Test the call function.\n";
   3
   4 $details = "Try various uses of call and ensure they all give the correct
   5 results.\n";
   6
   7 open(MAKEFILE, "> $makefile");
   8
   9 # The Contents of the MAKEFILE ...
  10
  11 print MAKEFILE <<'EOMAKE';
  12 # Simple, just reverse two things
  13 #
  14 reverse = $2 $1
  15
  16 # A complex `map' function, using recursive `call'.
  17 #
  18 map = $(foreach a,$2,$(call $1,$a))
  19
  20 # Test using a builtin; this is silly as it's simpler to do without call
  21 #
  22 my-notdir = $(call notdir,$(1))
  23
  24 # Test using non-expanded builtins
  25 #
  26 my-foreach = $(foreach $(1),$(2),$(3))
  27 my-if      = $(if $(1),$(2),$(3))
  28
  29 all: ; @echo '$(call reverse,bar,foo)'; \
  30         echo '$(call map,origin,MAKE reverse map)'; \
  31         echo '$(call my-notdir,a/b   c/d      e/f)'; \
  32         echo '$(call my-foreach)'; \
  33         echo '$(call my-foreach,a,,,)'; \
  34         echo '$(call my-foreach,a,x y z,$(a)$(a))'; \
  35         echo '$(call my-if,a,b,c)'; \
  36         echo '$(call my-if,,$(warning don't print this),ok)'
  37
  38 EOMAKE
  39
  40 # END of Contents of MAKEFILE
  41
  42 close(MAKEFILE);
  43
  44 &run_make_with_options($makefile, "", &get_logfile);
  45 $answer = "foo bar\ndefault file file\nb d f\n\n\nxx yy zz\nb\nok\n";
  46 &compare_output($answer, &get_logfile(1));
  47
  48 1;