guile-ml/test/os-utils-test.scm

(use-modules
 ;; SRFI 64 for unit testing facilities
 (srfi srfi-64)
 (utils os))


(test-begin "os-utils-test")

(test-group
 "path-join"

 (test-equal "path-join-1"
   "/a/b/c"
   (path-join "/a" "b" "c"))

 (test-equal "path-join-2"
   "/a/b/c/"
   (path-join "/a" "b" "c" ""))

 (test-equal "path-join-3"
   "a/b/c"
   (path-join "a" "b" "c")))

(test-end "os-utils-test")