| Line | |
|---|
| 1 | # -*-perl-*-
|
|---|
| 2 |
|
|---|
| 3 | $description = "Test the interaction of the -lfoo feature and vpath";
|
|---|
| 4 | $details = "";
|
|---|
| 5 |
|
|---|
| 6 | my @dirs_to_make = qw(a1 b1 a2 b2 b3);
|
|---|
| 7 | for my $d (@dirs_to_make) {
|
|---|
| 8 | mkdir($d, 0777);
|
|---|
| 9 | }
|
|---|
| 10 |
|
|---|
| 11 | my @files_to_touch = ("a1${pathsep}lib1.a",
|
|---|
| 12 | "a1${pathsep}libc.a",
|
|---|
| 13 | "b1${pathsep}lib1.so",
|
|---|
| 14 | "a2${pathsep}lib2.a",
|
|---|
| 15 | "b2${pathsep}lib2.so",
|
|---|
| 16 | "lib3.a",
|
|---|
| 17 | "b3${pathsep}lib3.so");
|
|---|
| 18 | &touch(@files_to_touch);
|
|---|
| 19 |
|
|---|
| 20 | my $answer = "a1${pathsep}lib1.a a1${pathsep}libc.a " .
|
|---|
| 21 | "a2${pathsep}lib2.a lib3.a\n";
|
|---|
| 22 | if ($port_type eq 'VMS-DCL') {
|
|---|
| 23 | $answer =~ s/ /,/g;
|
|---|
| 24 | }
|
|---|
| 25 |
|
|---|
| 26 | run_make_test('
|
|---|
| 27 | vpath %.h b3
|
|---|
| 28 | vpath %.a a1
|
|---|
| 29 | vpath %.so b1
|
|---|
| 30 | vpath % a2 b2
|
|---|
| 31 | vpath % b3
|
|---|
| 32 | all: -l1 -lc -l2 -l3; @echo $^
|
|---|
| 33 | ',
|
|---|
| 34 | '', $answer);
|
|---|
| 35 |
|
|---|
| 36 | unlink(@files_to_touch);
|
|---|
| 37 | for my $d (@dirs_to_make) {
|
|---|
| 38 | rmdir($d);
|
|---|
| 39 | }
|
|---|
| 40 |
|
|---|
| 41 | 1;
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.