src/gmake/tests/scripts/functions/origin

   1 #                                                                    -*-perl-*-
   2
   3 $description = "Test the origin function.";
   4
   5 $details = "This is a test of the origin function in gnu make.
   6 This function will report on where a variable was
   7 defined per the following list:
   8
   9 'undefined'            never defined
  10 'default'              default definition
  11 'environment'          environment var without -e
  12 'environment override' environment var with    -e
  13 'file'                 defined in makefile
  14 'command line'         defined on the command line
  15 'override'             defined by override in makefile
  16 'automatic'            Automatic variable\n";
  17
  18 # On WIN32 systems, HOME is meaningless. SystemRoot should be defined
  19 # though.  With DJGPP, HOME is not guaranteed to be defined.  Use DJDIR
  20 # instead.
  21 #
  22 $homevar = (($port_type eq 'Windows') ? "SystemRoot"
  23             : (($port_type eq 'DOS') ? "DJDIR"
  24                : "HOME"));
  25
  26 open(MAKEFILE,"> $makefile");
  27
  28 print MAKEFILE <<EOF;
  29 foo := bletch garf
  30 auto_var = udef CC $homevar MAKE foo CFLAGS WHITE \@
  31 av = \$(foreach var, \$(auto_var), \$(origin \$(var)) )
  32 override WHITE := BLACK
  33 all: auto
  34 \t\@echo \$(origin undefined)
  35 \t\@echo \$(origin CC)
  36 \t\@echo \$(origin $homevar)
  37 \t\@echo \$(origin MAKE)
  38 \t\@echo \$(origin foo)
  39 \t\@echo \$(origin CFLAGS)
  40 \t\@echo \$(origin WHITE)
  41 \t\@echo \$(origin \@)
  42 auto :
  43 \t\@echo \$(av)
  44 EOF
  45
  46 close(MAKEFILE);
  47
  48 &run_make_with_options($makefile,
  49                       "-e WHITE=WHITE CFLAGS=",
  50                       &get_logfile);
  51
  52 # Create the answer to what should be produced by this Makefile
  53 $answer = "undefined default environment default file command line override automatic
  54 undefined
  55 default
  56 environment
  57 default
  58 file
  59 command line
  60 override
  61 automatic\n";
  62
  63
  64 &compare_output($answer,&get_logfile(1));
  65
  66 1;