suite0017.janet

(use ../spork/test)
(import ../spork/sh)
(import ../spork/path)

(start-suite 17)

(def base-path "test")

(do
  (assert (deep= (os/dir (path/join base-path "assets/17"))
                 @["test.file"])
          "test files are wrong, assets/17 should only contain test.file")
  (sh/copy-file (path/join base-path "assets/17/test.file")
                (path/join base-path "assets/17/test2.file"))
  (def new_file (slurp (path/join base-path "assets/17/test2.file")))
  (assert (deep= (sort (sh/list-all-files (path/join base-path "assets")))
                 (map |(path/join base-path $0)
                      @["assets/17/test.file" "assets/17/test2.file"]))
          "sh/list-all-files didn't list the correct files")
  (sh/rm (path/join base-path "assets/17/test2.file"))
  (assert (deep= (os/dir (path/join base-path "assets/17"))
                 @["test.file"])
          "file test2.file was not removed by sh/rm")
  (assert (deep= (slurp (path/join base-path "assets/17/test.file"))
                 new_file)
          "file copied with sh/copy-file is not the same"))

(do
  (sh/create-dirs (path/join base-path "assets/17/some/more/directories/to/test"))
  (assert (= ((os/stat (path/join base-path "assets/17/some/more/directories/to/test")) :mode)
             :directory)
          "sh/create-dirs failed")
  (sh/rm (path/join base-path "assets/17/some"))
  (assert (= (os/stat (path/join base-path "assets/17/some/more/directories/to/test"))
             nil)
          "sh/rm didn't work correctly"))

(end-suite)