summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/ChangeLog8
-rw-r--r--tests/scripts/functions/abspath81
-rw-r--r--tests/scripts/functions/realpath71
3 files changed, 160 insertions, 0 deletions
diff --git a/tests/ChangeLog b/tests/ChangeLog
index cef8a33..9f68a05 100644
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,11 @@
+2004-11-30 Boris Kolpackov <boris@kolpackov.net>
+
+ * tests/scripts/functions/abspath: New file: test `abspath'
+ built-in function.
+
+ * tests/scripts/functions/realpath: New file: test `realpath'
+ built-in function.
+
2004-11-28 Paul D. Smith <psmith@gnu.org>
* scripts/options/dash-C [WINDOWS32]: Add a test for bug #10252;
diff --git a/tests/scripts/functions/abspath b/tests/scripts/functions/abspath
new file mode 100644
index 0000000..d419255
--- /dev/null
+++ b/tests/scripts/functions/abspath
@@ -0,0 +1,81 @@
+# -*-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;
diff --git a/tests/scripts/functions/realpath b/tests/scripts/functions/realpath
new file mode 100644
index 0000000..720af8b
--- /dev/null
+++ b/tests/scripts/functions/realpath
@@ -0,0 +1,71 @@
+# -*-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;