Stephen Compall avatar Stephen Compall committed fef88ac

Accept pathnames in maybe-add-trailing-slash, test

Comments (0)

Files changed (2)

src/utils/misc.lisp

 
 (defun maybe-add-trailing-slash (s)
   "Supply a trailing slash if needed."
-  (if (equal (subseq s (1- (length s))) "/")
-    s
-    (concatenate 'string s "/")))
+  (typecase s
+    (pathname (fad:pathname-as-directory s))
+    (otherwise
+       (if (equal (subseq s (1- (length s))) "/")
+	   s
+	   (concatenate 'string s "/")))))
 

test/utils-test/misc.lisp

 
 (in-package :weblocks-test)
 
+(deftestsuite utils/misc-suite (weblocks-suite)
+  ())
+
 ;;; Test humanize-name function
 (deftest humanize-name-1
     (humanize-name 'hello-world)
 (deftest function-designator-p-4
     (function-designator-p (list))
   nil)
+
+;;; maybe-add-trailing-slash
+(addtest maybe-add-trailing-slash-accept-pathnames
+  (let* ((p (make-pathname :directory '(:absolute "usr" "bin")))
+	 (p2 (make-pathname :defaults p :name "env" :type nil
+			    :version :newest)))
+    (ensure-same (weblocks::maybe-add-trailing-slash p) p)
+    (ensure-same (weblocks::maybe-add-trailing-slash p2)
+		 (make-pathname :directory '(:absolute "usr" "bin" "env")))))
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.