mirror of
https://git.savannah.gnu.org/git/make.git
synced 2025-01-01 01:33:51 +00:00
71 lines
943 B
Perl
71 lines
943 B
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 ///..),/)
|
|
$(error )
|
|
endif
|
|
|
|
ifneq ($(realpath /../),/)
|
|
$(error )
|
|
endif
|
|
|
|
ifneq ($(realpath /..///),/)
|
|
$(error )
|
|
endif
|
|
|
|
ifneq ($(realpath . /..),$(CURDIR) /)
|
|
$(error )
|
|
endif
|
|
|
|
.PHONY: all
|
|
all: ; @:
|
|
',
|
|
'',
|
|
'');
|
|
|
|
|
|
# This tells the test driver that the perl test script executed properly.
|
|
1;
|