-
Notifications
You must be signed in to change notification settings - Fork 35
/
suite0017.janet
38 lines (33 loc) · 1.5 KB
/
suite0017.janet
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
(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)