Last change
on this file since 281 was 53, checked in by bird, 21 years ago |
Initial revision
|
-
Property svn:eol-style
set to
native
|
File size:
1.1 KB
|
Line | |
---|
1 | # -*-perl-*-
|
---|
2 | $description = "Tests VPATH+/GPATH functionality.";
|
---|
3 |
|
---|
4 | $details = "";
|
---|
5 |
|
---|
6 | $VP = "$workdir$pathsep";
|
---|
7 |
|
---|
8 | open(MAKEFILE,"> $makefile");
|
---|
9 |
|
---|
10 | # The Contents of the MAKEFILE ...
|
---|
11 |
|
---|
12 | print MAKEFILE "VPATH = $VP\n";
|
---|
13 |
|
---|
14 | print MAKEFILE <<'EOMAKE';
|
---|
15 |
|
---|
16 | GPATH = $(VPATH)
|
---|
17 |
|
---|
18 | .SUFFIXES: .a .b .c .d
|
---|
19 | .PHONY: general rename notarget intermediate
|
---|
20 |
|
---|
21 | %.a:
|
---|
22 | %.b:
|
---|
23 | %.c:
|
---|
24 | %.d:
|
---|
25 |
|
---|
26 | %.a : %.b ; cat $^ > $@
|
---|
27 | %.b : %.c ; cat $^ > $@
|
---|
28 | %.c :: %.d ; cat $^ > $@
|
---|
29 |
|
---|
30 | # General testing info:
|
---|
31 |
|
---|
32 | general: foo.b
|
---|
33 | foo.b: foo.c bar.c
|
---|
34 |
|
---|
35 | EOMAKE
|
---|
36 |
|
---|
37 | close(MAKEFILE);
|
---|
38 |
|
---|
39 | @touchedfiles = ();
|
---|
40 |
|
---|
41 | $off = -500;
|
---|
42 |
|
---|
43 | sub touchfiles {
|
---|
44 | foreach (@_) {
|
---|
45 | ($f = $_) =~ s,VP/,$VP,g;
|
---|
46 | &utouch($off, $f);
|
---|
47 | $off += 10;
|
---|
48 | push(@touchedfiles, $f);
|
---|
49 | }
|
---|
50 | }
|
---|
51 |
|
---|
52 | # Run the general-case test
|
---|
53 |
|
---|
54 | &touchfiles("VP/foo.d", "VP/bar.d", "VP/foo.c", "VP/bar.c", "foo.b", "bar.d");
|
---|
55 |
|
---|
56 | &run_make_with_options($makefile,"general",&get_logfile());
|
---|
57 |
|
---|
58 | push(@touchedfiles, "bar.c");
|
---|
59 |
|
---|
60 | $answer = "$make_name: Nothing to be done for `general'.\n";
|
---|
61 |
|
---|
62 | &compare_output($answer,&get_logfile(1));
|
---|
63 |
|
---|
64 | unlink(@touchedfiles) unless $keep;
|
---|
65 |
|
---|
66 | 1;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.