tests/scripts/features/conditionals

   1 #                                                                    -*-perl-*-
   2 $description = "Check GNU make conditionals.";
   3
   4 $details = "Attempt various different flavors of GNU make conditionals.";
   5
   6 open(MAKEFILE,"> $makefile");
   7
   8 # The Contents of the MAKEFILE ...
   9
  10 print MAKEFILE <<'EOMAKE';
  11 objects = foo.obj
  12 arg1 = first
  13 arg2 = second
  14 arg3 = third
  15 arg4 = cc
  16 arg5 = second
  17
  18 all:
  19 ifeq ($(arg1),$(arg2))
  20         @echo arg1 equals arg2
  21 else
  22         @echo arg1 NOT equal arg2
  23 endif
  24
  25 ifeq '$(arg2)' "$(arg5)"
  26         @echo arg2 equals arg5
  27 else
  28         @echo arg2 NOT equal arg5
  29 endif
  30
  31 ifneq '$(arg3)' '$(arg4)'
  32         @echo arg3 NOT equal arg4
  33 else
  34         @echo arg3 equal arg4
  35 endif
  36
  37 ifndef undefined
  38         @echo variable is undefined
  39 else
  40         @echo variable undefined is defined
  41 endif
  42 ifdef arg4
  43         @echo arg4 is defined
  44 else
  45         @echo arg4 is NOT defined
  46 endif
  47
  48 EOMAKE
  49
  50 close(MAKEFILE);
  51
  52 &run_make_with_options($makefile,"",&get_logfile,0);
  53
  54 # Create the answer to what should be produced by this Makefile
  55 $answer = "arg1 NOT equal arg2
  56 arg2 equals arg5
  57 arg3 NOT equal arg4
  58 variable is undefined
  59 arg4 is defined
  60 ";
  61
  62 # COMPARE RESULTS
  63
  64 &compare_output($answer,&get_logfile(1));
  65
  66
  67 # Test expansion of variables inside ifdef.
  68
  69 $makefile2 = &get_tmpfile;
  70
  71 open(MAKEFILE, "> $makefile2");
  72
  73 print MAKEFILE <<'EOF';
  74
  75 foo = 1
  76
  77 FOO = foo
  78 F = f
  79
  80 DEF = no
  81 DEF2 = no
  82
  83 ifdef $(FOO)
  84 DEF = yes
  85 endif
  86
  87 ifdef $(F)oo
  88 DEF2 = yes
  89 endif
  90
  91 all:; @echo DEF=$(DEF) DEF2=$(DEF2)
  92
  93 EOF
  94
  95 &run_make_with_options($makefile2,"",&get_logfile,0);
  96 $answer = "DEF=yes DEF2=yes\n";
  97 &compare_output($answer,&get_logfile(1));
  98
  99
 100 # This tells the test driver that the perl test script executed properly.
 101 1;