basename: fix /, add autoconf basename, dirname tests.

check.sh

@@ -129,6 +129,11 @@ tests='
 100-test-file
 100-bracket-file
 
+100-basename-root
+100-dirname-root
+100-basename-autoconf
+100-dirname-autoconf
+
 100-sed
 100-sed-once
 100-sed-global

gash/commands/basename.scm

@@ -68,8 +68,9 @@ Options:
                                 (if (and (> (string-length file) 1)
                                          (string-suffix? "/" file)) (string-drop-right file 1)
                                          file)))
-                          (if suffix (display ((@ (guile) basename) file suffix))
-                              (display ((@ (guile) basename) file))))
+                           (cond ((string=? file "/") (display "/"))
+                                 (suffix (display ((@ (guile) basename) file suffix)))
+                                 (else (display ((@ (guile) basename) file)))))
                         (if zero? (display #\nul) (newline)))
                       files))))))
 

test/100-basename-autoconf.sh

@@ -0,0 +1,6 @@
+if (\basename -- /) >/dev/null 2>&1 && \test "X`\basename -- / 2>&1`" = "X/"; then
+  as_basename=basename
+else
+  as_basename=false
+fi
+echo as_basename:$as_basename

test/100-basename-autoconf.stdout

@@ -0,0 +1 @@
+as_basename:basename

test/100-basename-root.sh

@@ -0,0 +1,2 @@
+\basename /root
+\basename /

test/100-basename-root.stdout

@@ -0,0 +1,2 @@
+root
+/

test/100-dirname-autoconf.sh

@@ -0,0 +1,6 @@
+if (as_dir=`\dirname -- /` && \test "X$as_dir" = X/) >/dev/null 2>&1; then
+  as_dirname=dirname
+else
+  as_dirname=false
+fi
+echo as_dirname:$as_dirname

test/100-dirname-autoconf.stdout

@@ -0,0 +1 @@
+as_dirname:dirname

test/100-dirname-root.sh

@@ -0,0 +1,2 @@
+\dirname /root
+\dirname /

test/100-dirname-root.stdout

@@ -0,0 +1,2 @@
+/
+/