Grafted root commit from savannah git master:v2.0.2

38dcdcb08c60f4cc661395beb22641c46add9e6c Initial Import

1 files changed, 41 insertions, 0 deletions

diff --git a/t/parent.t b/t/parent.t
new file mode 100644
index 0000000..52a4bea
--- /dev/null
+++ b/t/parent.t
@@ -0,0 +1,41 @@
+#!/usr/local/bin/perl
+
+#
+# Testing parent()
+#
+
+# load as a library
+BEGIN { use lib qw(. ..); require "stow"; }
+
+use Test::More tests => 5;
+
+is(
+    parent('a/b/c'),
+    'a/b',
+    => 'no leading or trailing /'
+);
+
+is(
+    parent('/a/b/c'),
+    '/a/b',
+    => 'leading /'
+);
+
+is(
+    parent('a/b/c/'),
+    'a/b',
+    => 'trailing /'
+);
+
+is(
+    parent('/////a///b///c///'),
+    '/a/b',
+    => 'multiple /'
+);
+
+is (
+    parent('a'),
+    ''
+    => 'empty parent'
+);
+