tests/scripts/functions/error

   1 #                                                                    -*-Perl-*-
   2
   3 $description = "\
   4 The following test creates a makefile to test the error function.";
   5
   6 $details = "";
   7
   8 open(MAKEFILE,"> $makefile");
   9
  10 print MAKEFILE 'err = $(error Error found!)
  11
  12 ifdef ERROR1
  13 $(error error is $(ERROR1))
  14 endif
  15
  16 ifdef ERROR2
  17 $(error error is $(ERROR2))
  18 endif
  19
  20 ifdef ERROR3
  21 all: some; @echo $(error error is $(ERROR3))
  22 endif
  23
  24 ifdef ERROR4
  25 all: some; @echo error is $(ERROR4)
  26         @echo $(error error is $(ERROR4))
  27 endif
  28
  29 some: ; @echo Some stuff
  30
  31 testvar: ; @: $(err)
  32 ';
  33
  34 close(MAKEFILE);
  35
  36 # Test #1
  37
  38 &run_make_with_options($makefile, "ERROR1=yes", &get_logfile, 512);
  39 $answer = "$makefile:4: *** error is yes.  Stop.\n";
  40 &compare_output($answer,&get_logfile(1));
  41
  42 # Test #2
  43
  44 &run_make_with_options($makefile, "ERROR2=no", &get_logfile, 512);
  45 $answer = "$makefile:8: *** error is no.  Stop.\n";
  46 &compare_output($answer,&get_logfile(1));
  47
  48 # Test #3
  49
  50 &run_make_with_options($makefile, "ERROR3=maybe", &get_logfile, 512);
  51 $answer = "Some stuff\n$makefile:12: *** error is maybe.  Stop.\n";
  52 &compare_output($answer,&get_logfile(1));
  53
  54 # Test #4
  55
  56 &run_make_with_options($makefile, "ERROR4=definitely", &get_logfile, 512);
  57 $answer = "Some stuff\n$makefile:16: *** error is definitely.  Stop.\n";
  58 &compare_output($answer,&get_logfile(1));
  59
  60 # Test #5
  61
  62 &run_make_with_options($makefile, "testvar", &get_logfile, 512);
  63 $answer = "$makefile:22: *** Error found!.  Stop.\n";
  64 &compare_output($answer,&get_logfile(1));
  65
  66 # This tells the test driver that the perl test script executed properly.
  67 1;
  68
  69
  70
  71
  72
  73