mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-01-05 05:10:26 +00:00
Code Issues 1 Releases Wiki Activity

filewatch on mingw has same semantics as windows

Browse Source
This commit is contained in:
Calvin Rose 2024-08-18 16:18:09 -05:00
parent b63b3bef74
commit c0e508e334
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
test/suite-filewatch.janet
View File

@ -24,7 +24,7 @@
(assert true)
(def chan (ev/chan 1000))
(def is-win (= :windows (os/which)))
(def is-win (or (= :mingw (os/which)) (= :windows (os/which))))
(def is-linux (= :linux (os/which)))
# Test GC
@ -64,15 +64,12 @@
(rmrf td2)
(os/mkdir td1)
(os/mkdir td2)
(case (os/which)
:windows
(do
(filewatch/add fw td1 :last-write :last-access :file-name :dir-name :size :attributes :recursive)
(filewatch/add fw td2 :last-write :last-access :file-name :dir-name :size :attributes))
# default
(do
(filewatch/add fw td1 :close-write :create :delete)
(filewatch/add fw td2 :close-write :create :delete :ignored)))
(when is-win
(filewatch/add fw td1 :last-write :last-access :file-name :dir-name :size :attributes :recursive)
(filewatch/add fw td2 :last-write :last-access :file-name :dir-name :size :attributes))
(when is-linux
(filewatch/add fw td1 :close-write :create :delete)
(filewatch/add fw td2 :close-write :create :delete :ignored))
(assert-no-error "filewatch/listen no error" (filewatch/listen fw))
#