xref: /netbsd-src/external/gpl2/gmake/dist/tests/scripts/functions/realpath (revision 69606e3f5c9388e52aed8c120ad63c049ca45d8f)
1*69606e3fSchristos#                                                                    -*-perl-*-
2*69606e3fSchristos$description = "Test the realpath functions.";
3*69606e3fSchristos
4*69606e3fSchristos$details = "";
5*69606e3fSchristos
6*69606e3fSchristosrun_make_test('
7*69606e3fSchristosifneq ($(realpath .),$(CURDIR))
8*69606e3fSchristos  $(error )
9*69606e3fSchristosendif
10*69606e3fSchristos
11*69606e3fSchristosifneq ($(realpath ./),$(CURDIR))
12*69606e3fSchristos  $(error )
13*69606e3fSchristosendif
14*69606e3fSchristos
15*69606e3fSchristosifneq ($(realpath .///),$(CURDIR))
16*69606e3fSchristos  $(error )
17*69606e3fSchristosendif
18*69606e3fSchristos
19*69606e3fSchristosifneq ($(realpath /),/)
20*69606e3fSchristos  $(error )
21*69606e3fSchristosendif
22*69606e3fSchristos
23*69606e3fSchristosifneq ($(realpath /.),/)
24*69606e3fSchristos  $(error )
25*69606e3fSchristosendif
26*69606e3fSchristos
27*69606e3fSchristosifneq ($(realpath /./),/)
28*69606e3fSchristos  $(error )
29*69606e3fSchristosendif
30*69606e3fSchristos
31*69606e3fSchristosifneq ($(realpath /.///),/)
32*69606e3fSchristos  $(error )
33*69606e3fSchristosendif
34*69606e3fSchristos
35*69606e3fSchristosifneq ($(realpath /..),/)
36*69606e3fSchristos  $(error )
37*69606e3fSchristosendif
38*69606e3fSchristos
39*69606e3fSchristosifneq ($(realpath /../),/)
40*69606e3fSchristos  $(error )
41*69606e3fSchristosendif
42*69606e3fSchristos
43*69606e3fSchristosifneq ($(realpath /..///),/)
44*69606e3fSchristos  $(error )
45*69606e3fSchristosendif
46*69606e3fSchristos
47*69606e3fSchristosifneq ($(realpath . /..),$(CURDIR) /)
48*69606e3fSchristos  $(error )
49*69606e3fSchristosendif
50*69606e3fSchristos
51*69606e3fSchristos.PHONY: all
52*69606e3fSchristosall: ; @:
53*69606e3fSchristos',
54*69606e3fSchristos              '',
55*69606e3fSchristos              '');
56*69606e3fSchristos
57*69606e3fSchristos# On Windows platforms, "//" means something special.  So, don't do these
58*69606e3fSchristos# tests there.
59*69606e3fSchristos
60*69606e3fSchristosif ($port_type ne 'W32') {
61*69606e3fSchristos  run_make_test('
62*69606e3fSchristosifneq ($(realpath ///),/)
63*69606e3fSchristos  $(error )
64*69606e3fSchristosendif
65*69606e3fSchristos
66*69606e3fSchristosifneq ($(realpath ///.),/)
67*69606e3fSchristos  $(error )
68*69606e3fSchristosendif
69*69606e3fSchristos
70*69606e3fSchristosifneq ($(realpath ///..),/)
71*69606e3fSchristos  $(error )
72*69606e3fSchristosendif
73*69606e3fSchristos
74*69606e3fSchristos.PHONY: all
75*69606e3fSchristosall: ; @:',
76*69606e3fSchristos                '',
77*69606e3fSchristos                '');
78*69606e3fSchristos}
79*69606e3fSchristos
80*69606e3fSchristos
81*69606e3fSchristos# This tells the test driver that the perl test script executed properly.
82*69606e3fSchristos1;
83