gnu/dist/gmake/tests/scripts/targets/SECONDARY

   1 #! -*-perl-*-
   2
   3 $description = "Test the behaviour of the .SECONDARY target.";
   4
   5 $details = "\
   6 Test the behavior of the .SECONDARY special target.
   7 Create a makefile where a file would not normally be considered
   8 intermediate, then specify it as .SECONDARY.  Build and note that it's
   9 not automatically deleted.  Delete the file.  Rebuild to ensure that
  10 it's not created if it doesn't exist but doesn't need to be built.
  11 Change the original and ensure that the secondary file and the ultimate
  12 target are both rebuilt, and that the secondary file is not deleted.
  13
  14 Try this with implicit rules and explicit rules: both should work.\n";
  15
  16 open(MAKEFILE,"> $makefile");
  17
  18 print MAKEFILE <<'EOF';
  19
  20 .SECONDARY: foo.e
  21
  22 # Implicit rule test
  23 %.d : %.e ; cp $< $@
  24 %.e : %.f ; cp $< $@
  25
  26 foo.d: foo.e
  27
  28 # Explicit rule test
  29 foo.c: foo.e ; cp $< $@
  30 EOF
  31
  32 close(MAKEFILE);
  33
  34 # TEST #1
  35
  36 &utouch(-20, 'foo.f');
  37
  38 &run_make_with_options($makefile,'foo.d',&get_logfile);
  39 $answer = "cp foo.f foo.e\ncp foo.e foo.d\n";
  40 &compare_output($answer, &get_logfile(1));
  41
  42 # TEST #2
  43
  44 unlink('foo.e');
  45
  46 &run_make_with_options($makefile,'foo.d',&get_logfile);
  47 $answer = "$make_name: `foo.d' is up to date.\n";
  48 &compare_output($answer, &get_logfile(1));
  49
  50 # TEST #3
  51
  52 &utouch(-10, 'foo.d');
  53 &touch('foo.f');
  54
  55 &run_make_with_options($makefile,'foo.d',&get_logfile);
  56 $answer = "cp foo.f foo.e\ncp foo.e foo.d\n";
  57 &compare_output($answer, &get_logfile(1));
  58
  59 # TEST #4
  60
  61 &run_make_with_options($makefile,'foo.c',&get_logfile);
  62 $answer = "cp foo.e foo.c\n";
  63 &compare_output($answer, &get_logfile(1));
  64
  65 # TEST #5
  66
  67 unlink('foo.e');
  68
  69 &run_make_with_options($makefile,'foo.c',&get_logfile);
  70 $answer = "$make_name: `foo.c' is up to date.\n";
  71 &compare_output($answer, &get_logfile(1));
  72
  73 # TEST #6
  74
  75 &utouch(-10, 'foo.c');
  76 &touch('foo.f');
  77
  78 &run_make_with_options($makefile,'foo.c',&get_logfile);
  79 $answer = "cp foo.f foo.e\ncp foo.e foo.c\n";
  80 &compare_output($answer, &get_logfile(1));
  81
  82 unlink('foo.f', 'foo.e', 'foo.d', 'foo.c');
  83
  84 # This tells the test driver that the perl test script executed properly.
  85 1;