mirror of
https://salsa.debian.org/srivasta/make-dfsg.git
synced 2025-02-12 07:07:39 +00:00
e6c0ec3bb3
Imported make-3.81 into srivasta@debian.org--etch/make--upstream--3.81 git-archimport-id: srivasta@debian.org--etch/make--upstream--3.81--patch-7
82 lines
1.1 KiB
Perl
82 lines
1.1 KiB
Perl
# -*-perl-*-
|
|
$description = "Test the realpath functions.";
|
|
|
|
$details = "";
|
|
|
|
run_make_test('
|
|
ifneq ($(realpath .),$(CURDIR))
|
|
$(error )
|
|
endif
|
|
|
|
ifneq ($(realpath ./),$(CURDIR))
|
|
$(error )
|
|
endif
|
|
|
|
ifneq ($(realpath .///),$(CURDIR))
|
|
$(error )
|
|
endif
|
|
|
|
ifneq ($(realpath /),/)
|
|
$(error )
|
|
endif
|
|
|
|
ifneq ($(realpath /.),/)
|
|
$(error )
|
|
endif
|
|
|
|
ifneq ($(realpath /./),/)
|
|
$(error )
|
|
endif
|
|
|
|
ifneq ($(realpath /.///),/)
|
|
$(error )
|
|
endif
|
|
|
|
ifneq ($(realpath /..),/)
|
|
$(error )
|
|
endif
|
|
|
|
ifneq ($(realpath /../),/)
|
|
$(error )
|
|
endif
|
|
|
|
ifneq ($(realpath /..///),/)
|
|
$(error )
|
|
endif
|
|
|
|
ifneq ($(realpath . /..),$(CURDIR) /)
|
|
$(error )
|
|
endif
|
|
|
|
.PHONY: all
|
|
all: ; @:
|
|
',
|
|
'',
|
|
'');
|
|
|
|
# On Windows platforms, "//" means something special. So, don't do these
|
|
# tests there.
|
|
|
|
if ($port_type ne 'W32') {
|
|
run_make_test('
|
|
ifneq ($(realpath ///),/)
|
|
$(error )
|
|
endif
|
|
|
|
ifneq ($(realpath ///.),/)
|
|
$(error )
|
|
endif
|
|
|
|
ifneq ($(realpath ///..),/)
|
|
$(error )
|
|
endif
|
|
|
|
.PHONY: all
|
|
all: ; @:',
|
|
'',
|
|
'');
|
|
}
|
|
|
|
|
|
# This tells the test driver that the perl test script executed properly.
|
|
1;
|