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 # TEST #7 -- test the "global" .SECONDARY, with no targets.
  85
  86 $makefile2 = &get_tmpfile;
  87
  88 open(MAKEFILE, "> $makefile2");
  89
  90 print MAKEFILE <<'EOF';
  91 .SECONDARY:
  92
  93 final: intermediate
  94 intermediate: source
  95
  96 final intermediate source:
  97         echo $< > $@
  98 EOF
  99
 100 close(MAKEFILE);
 101
 102 &utouch(-10, 'source');
 103 touch('final');
 104
 105 &run_make_with_options($makefile2, '', &get_logfile);
 106 $answer = "$make_name: 'final' is up to date.\n";
 107 &compare_output($answer, &get_logfile(1));
 108
 109 unlink('source', 'final', 'intermediate');
 110
 111
 112 # TEST #8 -- test the "global" .SECONDARY, with .PHONY.
 113
 114 touch('version2');
 115 run_make_test('
 116 .PHONY: version
 117 .SECONDARY:
 118 version2: version ; @echo GOOD
 119 all: version2',
 120               'all', 'GOOD');
 121
 122 unlink('version2');
 123
 124 # TEST #9 -- Savannah bug #15919
 125 # The original fix for this bug caused a new bug, shown here.
 126
 127 touch(qw(1.a 2.a));
 128
 129 run_make_test('
 130 %.c : %.b ; cp $< $@
 131 %.b : %.a ; cp $< $@
 132 all : 1.c 2.c
 133 2.a: 1.c', '-rR -j',
 134 'cp 1.a 1.b
 135 cp 1.b 1.c
 136 cp 2.a 2.b
 137 cp 2.b 2.c
 138 rm 1.b 2.b');
 139
 140 unlink(qw(1.a 2.a 1.c 2.c));
 141
 142 # TEST #10 -- Savannah bug #15919
 143 touch('test.0');
 144 run_make_test('
 145 .SECONDARY : test.1 test.2 test.3
 146
 147 test : test.4
 148
 149 %.4 : %.int %.3 ; touch $@
 150
 151 %.int : %.3 %.2 ; touch $@
 152
 153 %.3 : | %.2 ; touch $@
 154
 155 %.2 : %.1 ; touch $@
 156
 157 %.1 : %.0 ; touch $@', '-rR -j 2',
 158 'touch test.1
 159 touch test.2
 160 touch test.3
 161 touch test.int
 162 touch test.4
 163 rm test.int');
 164
 165 # After a touch of test.0 it should give the same output, except we don't need
 166 # to rebuild test.3 (order-only)
 167 sleep(1);
 168 touch('test.0');
 169 run_make_test(undef, '-rR -j 2',
 170 'touch test.1
 171 touch test.2
 172 touch test.int
 173 touch test.4
 174 rm test.int');
 175
 176 # With both test.0 and test.3 updated it should still build everything except
 177 # test.3
 178 sleep(1);
 179 touch('test.0', 'test.3');
 180 run_make_test(undef, '-rR -j 2',
 181 'touch test.1
 182 touch test.2
 183 touch test.int
 184 touch test.4
 185 rm test.int');
 186
 187 unlink(qw(test.0 test.1 test.2 test.3 test.4));
 188
 189 # This tells the test driver that the perl test script executed properly.
 190 1;