Test output for filepath
Testing time: 8.0s
CHICKEN_INSTALL_PREFIX=/root/src/salmonella/salmonella-4.5.0/repo CHICKEN_INCLUDE_PATH=/root/src/salmonella/salmonella-4.5.0/repo/share/chicken CHICKEN_REPOSITORY=/root/src/salmonella/salmonella-4.5.0/repo/lib/chicken/5 /usr/local/chicken-4.5.0/bin/csi -script run.scm
-- 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.001 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.001 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.001 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 0 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 0.001 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.001 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.001 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.001 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 0.012 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]
11 tests completed in 0.005 seconds.
11 out of 11 (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 0.003 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 0.003 seconds.
6 out of 6 (100%) tests passed.
-- done testing make-valid ---------------------------------------------------