diff options
| author | Lukc <lukc@upyum.com> | 2010-12-11 19:15:23 +0100 |
|---|---|---|
| committer | Lukc <lukc@upyum.com> | 2010-12-11 19:15:35 +0100 |
| commit | 6d908a38e05b9d4135c65d23114a5874215b5bb8 (patch) | |
| tree | b5e6da6d95b9a1235d82032b509b80483a886ff5 /make/make-3.81/tests/scripts/functions/realpath | |
| download | base-6d908a38e05b9d4135c65d23114a5874215b5bb8.tar.gz base-6d908a38e05b9d4135c65d23114a5874215b5bb8.tar.bz2 base-6d908a38e05b9d4135c65d23114a5874215b5bb8.tar.xz base-6d908a38e05b9d4135c65d23114a5874215b5bb8.zip | |
Engagement initial.
Diffstat (limited to 'make/make-3.81/tests/scripts/functions/realpath')
| -rw-r--r-- | make/make-3.81/tests/scripts/functions/realpath | 82 |
1 files changed, 82 insertions, 0 deletions
diff --git a/make/make-3.81/tests/scripts/functions/realpath b/make/make-3.81/tests/scripts/functions/realpath new file mode 100644 index 0000000..9b503b4 --- /dev/null +++ b/make/make-3.81/tests/scripts/functions/realpath @@ -0,0 +1,82 @@ +# -*-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; |