Test output for filepath [ok]

Testing time: 0s

'/usr/home/chicken/salmonella/build/salmonella-run-publish/chicken/bin/csi' -script run.scm < /dev/null 2>&1

-- testing split-search-path -------------------------------------------------
(split-search-path "File1;File2;File3") => ("File1" "File2" "File3") (Windows)  [ PASS]
(split-search-path "File1:File2:File3") => ("File1" "File2" "File3") (POSIX)  [ PASS]
2 tests completed in 0 seconds.
2 out of 2 (100%) tests passed.
-- done testing split-search-path --------------------------------------------


-- testing split-extension ---------------------------------------------------
(split-extension "file.txt") => ("file" ".txt") ...................... [ PASS]
(split-extension "file") => ("file" "") .............................. [ PASS]
(split-extension "file/file.txt") => ("file/file" ".txt") ............ [ PASS]
(split-extension "file.txt/boris") => ("file.txt/boris" "") .......... [ PASS]
(split-extension "file.txt/boris.ext") => ("file.txt/boris" ".ext") .. [ PASS]
(split-extension "file/path.txt.bob.fred") => ("file/path.txt.bob" ".fred")  [ PASS]
(split-extension "file/path.txt/") => ("file/path.txt/" "") .......... [ PASS]
7 tests completed in 0 seconds.
7 out of 7 (100%) tests passed.
-- done testing split-extension ----------------------------------------------


-- testing replace-extension -------------------------------------------------
(replace-extension "file.txt" ".bob") => "file.bob" .................. [ PASS]
(replace-extension "file.txt" "bob") => "file.bob" ................... [ PASS]
(replace-extension "file" ".bob") => "file.bob" ...................... [ PASS]
(replace-extension "file.txt" "") => "file" .......................... [ PASS]
(replace-extension "file.fred.bob" "txt") => "file.fred.txt" ......... [ PASS]
5 tests completed in 0 seconds.
5 out of 5 (100%) tests passed.
-- done testing replace-extension --------------------------------------------


-- testing add-extension -----------------------------------------------------
(add-extension "file.txt" "bib") => "file.txt.bib" ................... [ PASS]
(add-extension "file." ".bib") => "file..bib" ........................ [ PASS]
(add-extension "file" ".bib") => "file.bib" .......................... [ PASS]
(add-extension "/" "x") => "/.x" ..................................... [ PASS]
4 tests completed in 1/500 seconds.
4 out of 4 (100%) tests passed.
-- done testing add-extension ------------------------------------------------


-- testing split-drive -------------------------------------------------------
(split-drive "file") => ("" "file") .................................. [ PASS]
(split-drive "c:/file") => ("c:/" "file") ............................ [ PASS]
(split-drive "c:\\file") => ("c:\\" "file") .......................... [ PASS]
(split-drive "\\\\shared\\test") => ("\\\\shared\\" "test") .......... [ PASS]
(split-drive "\\\\shared") => ("\\\\shared" "") ...................... [ PASS]
(split-drive "\\\\?\\UNC\\shared\\file") => ("\\\\?\\UNC\\shared\\" "file")  [ PASS]
(split-drive "\\\\?\\d:\\file") => ("\\\\?\\d:\\" "file") ............ [ PASS]
(split-drive "/d") => ("" "/d") ...................................... [ PASS]
(split-drive "/test") => ("/" "test") ................................ [ PASS]
(split-drive "//test") => ("//" "test") .............................. [ PASS]
(split-drive "test/file") => ("" "test/file") ........................ [ PASS]
(split-drive "file") => ("" "file") .................................. [ PASS]
12 tests completed in 1/1000 seconds.
12 out of 12 (100%) tests passed.
-- done testing split-drive --------------------------------------------------


-- testing split-file-name ---------------------------------------------------
(split-file-name "c:") => ("c:" "") .................................. [ PASS]
(split-file-name "file/bob.txt") => ("file/" "bob.txt") .............. [ PASS]
(split-file-name "file/") => ("file/" "") ............................ [ PASS]
(split-file-name "bob") => ("" "bob") ................................ [ PASS]
(split-file-name "/") => ("/" "") .................................... [ PASS]
5 tests completed in 0 seconds.
5 out of 5 (100%) tests passed.
-- done testing split-file-name ----------------------------------------------


-- testing take-directory ----------------------------------------------------
(take-directory "foo\\bar") => "foo" ................................. [ PASS]
(take-directory "foo\\bar\\\\") => "foo\\bar" ........................ [ PASS]
(take-directory "C:\\") => "C:\\" .................................... [ PASS]
(take-directory "/foo/bar/baz") => "/foo/bar" ........................ [ PASS]
(take-directory "/foo/bar/baz/") => "/foo/bar/baz" ................... [ PASS]
5 tests completed in 0 seconds.
5 out of 5 (100%) tests passed.
-- done testing take-directory -----------------------------------------------


-- testing split-path --------------------------------------------------------
(split-path "c:\\test\\path") => ("c:\\" "test\\" "path") ............ [ PASS]
(split-path "test//item/") => ("test//" "item/") ..................... [ PASS]
(split-path "test/item/file") => ("test/" "item/" "file") ............ [ PASS]
(split-path "") => () ................................................ [ PASS]
(split-path "/file/test") => ("/" "file/" "test") .................... [ PASS]
5 tests completed in 0 seconds.
5 out of 5 (100%) tests passed.
-- done testing split-path ---------------------------------------------------


-- testing make-relative -----------------------------------------------------
(make-relative "C:\\Home" "c:\\home\\bob") => "bob" .................. [ PASS]
(make-relative "C:\\Home" "D:\\Home\\Bob") => "D:\\Home\\Bob" ........ [ PASS]
(make-relative "/Home" "/home/bob") => "/home/bob" ................... [ PASS]
(make-relative "/home/" "/home/bob/foo/bar") => "bob/foo/bar" ........ [ PASS]
(make-relative "/fred" "bob") => "bob" ............................... [ PASS]
(make-relative "/file/test" "/file/test/fred") => "fred" ............. [ PASS]
(make-relative "/file/test" "/file/test/fred/") => "fred/" ........... [ PASS]
(make-relative "some/path" "some/path/a/b/c") => "a/b/c" ............. [ PASS]
8 tests completed in 3/1000 seconds.
8 out of 8 (100%) tests passed.
-- done testing make-relative ------------------------------------------------


-- testing normalise ---------------------------------------------------------
(normalise "c:\\file/bob\\") => "C:\\file\\bob\\" .................... [ PASS]
(normalise "c:\\") => "C:\\" ......................................... [ PASS]
(normalise "\\\\server\\test") => "\\\\server\\test" ................. [ PASS]
(normalise "c:/file") => "C:\\file" .................................. [ PASS]
(normalise ".") => "." ............................................... [ PASS]
(normalise "/file/\\test////") => "/file/\\test/" .................... [ PASS]
(normalise "/file/./test") => "/file/test" ........................... [ PASS]
(normalise "/test/file/../bob/fred/") => "/test/file/../bob/fred/" ... [ PASS]
(normalise "../bob/fred/") => "../bob/fred/" ......................... [ PASS]
(normalise "./bob/fred/") => "bob/fred/" ............................. [ PASS]
(normalise "./") => "./" ............................................. [ PASS]
(normalise "./abc//def/ghi") => "abc/def/ghi" ........................ [ PASS]
(normalise "abc//def///ghi") => "abc/def/ghi" ........................ [ PASS]
13 tests completed in 1/1000 seconds.
13 out of 13 (100%) tests passed.
-- done testing normalise ----------------------------------------------------


-- testing is-valid? ---------------------------------------------------------
(is-valid? "c:\\test") => #t ......................................... [ PASS]
(is-valid? "c:\\test:of_test") => #f ................................. [ PASS]
(is-valid? "test*") => #f ............................................ [ PASS]
(is-valid? "c:\\test\\nul") => #f .................................... [ PASS]
(is-valid? "c:\\test\\prn.txt") => #f ................................ [ PASS]
(is-valid? "c:\\nul\\file") => #f .................................... [ PASS]
(is-valid? "/random_ path:*") => #t .................................. [ PASS]
7 tests completed in 1/1000 seconds.
7 out of 7 (100%) tests passed.
-- done testing is-valid? ----------------------------------------------------


-- testing make-valid --------------------------------------------------------
(make-valid "c:\\test:of_test") => "c:\\test_of_test" ................ [ PASS]
(make-valid "test*") => "test_" ...................................... [ PASS]
(make-valid "c:\\test\\nul") => "c:\\test\\nul_" ..................... [ PASS]
(make-valid "c:\\test\\prn.txt") => "c:\\test\\prn_.txt" ............. [ PASS]
(make-valid "c:\\test/prn.txt") => "c:\\test/prn_.txt" ............... [ PASS]
(make-valid "c:\\nul\\file") => "c:\\nul_\\file" ..................... [ PASS]
6 tests completed in 1/1000 seconds.
6 out of 6 (100%) tests passed.
-- done testing make-valid ---------------------------------------------------


-- testing is-relative? ------------------------------------------------------
(filepath:is-relative? "") ........................................... [ PASS]
(filepath:is-relative? "path\\test") ................................. [ PASS]
(not (filepath:is-relative? "c:\\test")) ............................. [ PASS]
(filepath:is-relative? "c:test") ..................................... [ PASS]
(filepath:is-relative? "c:") ......................................... [ PASS]
(not (filepath:is-relative? "\\\\foo")) .............................. [ PASS]
(filepath:is-relative? "/foo") ....................................... [ PASS]
(filepath:is-relative? "test/path") .................................. [ PASS]
(not (filepath:is-relative? "/test")) ................................ [ PASS]
9 tests completed in 1/1000 seconds.
9 out of 9 (100%) tests passed.
-- done testing is-relative? -------------------------------------------------