#                                                                    -*-perl-*-
$description = "Test the abspath functions.";

$details = "";

run_make_test('
ifneq ($(realpath $(abspath .)),$(CURDIR))
  $(error )
endif

ifneq ($(realpath $(abspath ./)),$(CURDIR))
  $(error )
endif

ifneq ($(realpath $(abspath .///)),$(CURDIR))
  $(error )
endif

ifneq ($(abspath /),/)
  $(error )
endif

ifneq ($(abspath ///),/)
  $(error )
endif

ifneq ($(abspath /.),/)
  $(error )
endif

ifneq ($(abspath ///.),/)
  $(error )
endif

ifneq ($(abspath /./),/)
  $(error )
endif

ifneq ($(abspath /.///),/)
  $(error )
endif

ifneq ($(abspath /..),/)
  $(error )
endif

ifneq ($(abspath ///..),/)
  $(error )
endif

ifneq ($(abspath /../),/)
  $(error )
endif

ifneq ($(abspath /..///),/)
  $(error )
endif


ifneq ($(abspath /foo/bar/..),/foo)
  $(error )
endif

ifneq ($(abspath /foo/bar/../../../baz),/baz)
  $(error )
endif

ifneq ($(abspath /foo/bar/../ /..),/foo /)
  $(error )
endif


.PHONY: all
all: ; @:
',
'',
'');


# This tells the test driver that the perl test script executed properly.
1;
