@@ -5,91 +5,91 @@ open Xunit
55
66[<Fact>]
77let ``should load a folder`` () =
8- let folderPath = FolderPath " /test"
9- let pattern = " *.ext"
10-
11- let folder =
12- let loadFiles _ _ = [|
13- FilePath " /test/file2.ext" , FileName " file2"
14- FilePath " /test/file1.ext" , FileName " file1"
15- |]
16-
17- App.loadFolder loadFiles {
18- Path = folderPath
19- Pattern = Pattern.init pattern false
20- Launchers = Array.empty
21- }
22-
23- folder
24- =! Some {
25- Path = folderPath
26- Pattern = Pattern.init pattern false
27- Files = [|
28- File.create ( FilePath " /test/file1.ext" ) ( FileName " file1" )
29- File.create ( FilePath " /test/file2.ext" ) ( FileName " file2" )
30- |]
31- Launchers = Array.empty
8+ let folderPath = FolderPath " /test"
9+ let pattern = " *.ext"
10+
11+ let folder =
12+ let loadFiles _ _ = [|
13+ FilePath " /test/file2.ext" , FileName " file2"
14+ FilePath " /test/file1.ext" , FileName " file1"
15+ |]
16+
17+ App.loadFolder loadFiles {
18+ Path = folderPath
19+ Pattern = Pattern.init pattern false
20+ Launchers = Array.empty
3221 }
3322
23+ folder
24+ =! Some {
25+ Path = folderPath
26+ Pattern = Pattern.init pattern false
27+ Files = [|
28+ File.create ( FilePath " /test/file1.ext" ) ( FileName " file1" )
29+ File.create ( FilePath " /test/file2.ext" ) ( FileName " file2" )
30+ |]
31+ Launchers = Array.empty
32+ }
33+
3434[<Fact>]
3535let ``should not load a folder if no result`` () =
36- let folder =
37- let loadFiles _ _ = Array.empty
36+ let folder =
37+ let loadFiles _ _ = Array.empty
3838
39- App.loadFolder loadFiles {
40- Path = FolderPath " "
41- Pattern = Pattern.init " " false
42- Launchers = Array.empty
43- }
39+ App.loadFolder loadFiles {
40+ Path = FolderPath " "
41+ Pattern = Pattern.init " " false
42+ Launchers = Array.empty
43+ }
4444
45- folder =! None
45+ folder =! None
4646
4747[<Fact>]
4848let ``refresh should synchronize files`` () =
49- let newFolder =
50- let loadFiles _ _ = [|
51- FilePath " file1" , FileName " "
52- FilePath " file3" , FileName " "
53- |]
54-
55- let save = id
56-
57- {
58- Path = FolderPath " "
59- Pattern = Pattern.init " " false
60- Files = [|
61- File.create ( FilePath " file1" ) ( FileName " " )
62- File.create ( FilePath " file2" ) ( FileName " " )
63- |]
64- Launchers = Array.empty
65- }
66- |> App.refresh loadFiles save
67- |> Option.get
68-
69- newFolder.Files.[ 0 ]. Path.value =! " file1"
70- newFolder.Files.[ 1 ]. Path.value =! " file3"
49+ let newFolder =
50+ let loadFiles _ _ = [|
51+ FilePath " file1" , FileName " "
52+ FilePath " file3" , FileName " "
53+ |]
54+
55+ let save = id
56+
57+ {
58+ Path = FolderPath " "
59+ Pattern = Pattern.init " " false
60+ Files = [|
61+ File.create ( FilePath " file1" ) ( FileName " " )
62+ File.create ( FilePath " file2" ) ( FileName " " )
63+ |]
64+ Launchers = Array.empty
65+ }
66+ |> App.refresh loadFiles save
67+ |> Option.get
68+
69+ newFolder.Files.[ 0 ]. Path.value =! " file1"
70+ newFolder.Files.[ 1 ]. Path.value =! " file3"
7171
7272[<Fact>]
7373let ``refresh should keep triggers`` () =
74- let newFolder =
75- let loadFiles _ _ = [|
76- FilePath " file1" , FileName " "
77- FilePath " file2" , FileName " "
78- |]
79-
80- let save = id
81-
82- {
83- Path = FolderPath " "
84- Pattern = Pattern.init " " false
85- Files = [|
86- File.create ( FilePath " file1" ) ( FileName " " ) |> File.triggered
87- File.create ( FilePath " file2" ) ( FileName " " )
88- |]
89- Launchers = Array.empty
90- }
91- |> App.refresh loadFiles save
92- |> Option.get
93-
94- newFolder.Files.[ 0 ]. Triggered =! 1
95- newFolder.Files.[ 1 ]. Triggered =! 0
74+ let newFolder =
75+ let loadFiles _ _ = [|
76+ FilePath " file1" , FileName " "
77+ FilePath " file2" , FileName " "
78+ |]
79+
80+ let save = id
81+
82+ {
83+ Path = FolderPath " "
84+ Pattern = Pattern.init " " false
85+ Files = [|
86+ File.create ( FilePath " file1" ) ( FileName " " ) |> File.triggered
87+ File.create ( FilePath " file2" ) ( FileName " " )
88+ |]
89+ Launchers = Array.empty
90+ }
91+ |> App.refresh loadFiles save
92+ |> Option.get
93+
94+ newFolder.Files.[ 0 ]. Triggered =! 1
95+ newFolder.Files.[ 1 ]. Triggered =! 0
0 commit comments