d3fde87c1ae9158d644f166693a0d218a65266c4
[platform/upstream/make.git] / tests / scripts / options / dash-W
1 #                                                                    -*-perl-*-
2
3 $description = "Test make -W (what if) option.\n";
4
5 # Basic build
6
7 run_make_test('
8 a.x: b.x
9 a.x b.x: ; echo >> $@
10 ',
11               '', "echo >> b.x\necho >> a.x");
12
13 # Run it again: nothing should happen
14
15 run_make_test(undef, '', "#MAKE#: `a.x' is up to date.");
16
17 # Now run it with -W b.x: should rebuild a.x
18
19 run_make_test(undef, '-W b.x', 'echo >> a.x');
20
21 # Put the timestamp for a.x into the future; it should still be remade.
22
23 utouch(1000, 'a.x');
24 run_make_test(undef, '', "#MAKE#: `a.x' is up to date.");
25 run_make_test(undef, '-W b.x', 'echo >> a.x');
26
27 # Clean up
28
29 rmfiles('a.x', 'b.x');
30
31 # Test -W with the re-exec feature: we don't want to re-exec forever
32 # Savannah bug # 7566
33
34 # First set it up with a normal build
35
36 run_make_test('
37 all: baz.x ; @:
38 include foo.x
39 foo.x: bar.x
40         @echo "\$$(info restarts=\$$(MAKE_RESTARTS))" > $@
41         @echo "touch $@"
42 bar.x: ; echo >> $@
43 baz.x: bar.x ; @echo "touch $@"
44 ',
45               '', '#MAKEFILE#:3: foo.x: No such file or directory
46 echo >> bar.x
47 touch foo.x
48 restarts=1
49 touch baz.x');
50
51 # Now run with -W bar.x
52
53 # Tweak foo.x's timestamp so the update will change it.
54 &utouch(1000, 'foo.x');
55
56 run_make_test(undef, '-W bar.x', "restarts=\ntouch foo.x\nrestarts=1\ntouch baz.x");
57
58 rmfiles('foo.x', 'bar.x');
59
60 # Test -W on vpath-found files: it should take effect.
61 # Savannah bug # 15341
62
63 mkdir('x-dir', 0777);
64 utouch(-20, 'x-dir/x');
65 touch('y');
66
67 run_make_test('
68 y: x ; @echo cp $< $@
69 ',
70               '-W x-dir/x VPATH=x-dir',
71               'cp x-dir/x y');
72
73 # Make sure ./ stripping doesn't interfere with the match.
74
75 run_make_test('
76 y: x ; @echo cp $< $@
77 ',
78               '-W ./x-dir/x VPATH=x-dir',
79               'cp x-dir/x y');
80
81 run_make_test(undef,
82               '-W x-dir/x VPATH=./x-dir',
83               'cp ./x-dir/x y');
84
85 unlink(qw(y x-dir/x));
86 rmdir('x-dir');
87
88 1;