1#                                                                    -*-perl-*-
2$description = "Test the abspath functions.";
3
4$details = "";
5
6run_make_test('
7ifneq ($(realpath $(abspath .)),$(CURDIR))
8  $(warning .: abs="$(abspath .)" real="$(realpath $(abspath .))" curdir="$(CURDIR)")
9endif
10
11ifneq ($(realpath $(abspath ./)),$(CURDIR))
12  $(warning ./: abs="$(abspath ./)" real="$(realpath $(abspath ./))" curdir="$(CURDIR)")
13endif
14
15ifneq ($(realpath $(abspath .///)),$(CURDIR))
16  $(warning .///: abs="$(abspath .///)" real="$(realpath $(abspath .///))" curdir="$(CURDIR)")
17endif
18
19ifneq ($(abspath /),/)
20  $(warning /: abspath="$(abspath /)")
21endif
22
23ifneq ($(abspath ///),/)
24  $(warning ///: abspath="$(abspath ///)")
25endif
26
27ifneq ($(abspath /.),/)
28  $(warning /.: abspath="$(abspath /.)")
29endif
30
31ifneq ($(abspath ///.),/)
32  $(warning ///.: abspath="$(abspath ///.)")
33endif
34
35ifneq ($(abspath /./),/)
36  $(warning /./: abspath="$(abspath /./)")
37endif
38
39ifneq ($(abspath /.///),/)
40  $(warning /.///: abspath="$(abspath /.///)")
41endif
42
43ifneq ($(abspath /..),/)
44  $(warning /..: abspath="$(abspath /..)")
45endif
46
47ifneq ($(abspath ///..),/)
48  $(warning ///..: abspath="$(abspath ///..)")
49endif
50
51ifneq ($(abspath /../),/)
52  $(warning /../: abspath="$(abspath /../)")
53endif
54
55ifneq ($(abspath /..///),/)
56  $(warning /..///: abspath="$(abspath /..///)")
57endif
58
59
60ifneq ($(abspath /foo/bar/..),/foo)
61  $(warning /foo/bar/..: abspath="$(abspath /foo/bar/..)")
62endif
63
64ifneq ($(abspath /foo/bar/../../../baz),/baz)
65  $(warning /foo/bar/../../../baz: abspath="$(abspath /foo/bar/../../../baz)")
66endif
67
68ifneq ($(abspath /foo/bar/../ /..),/foo /)
69  $(warning /foo/bar/../ /..: abspath="$(abspath /foo/bar/../ /..)")
70endif
71
72
73.PHONY: all
74all: ; @:
75',
76'',
77'');
78
79
80# This tells the test driver that the perl test script executed properly.
811;
82