mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-10-18 16:05:47 +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) (assert true)
(def chan (ev/chan 1000)) (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))) (def is-linux (= :linux (os/which)))
# Test GC # Test GC
@ -64,15 +64,12 @@
(rmrf td2) (rmrf td2)
(os/mkdir td1) (os/mkdir td1)
(os/mkdir td2) (os/mkdir td2)
(case (os/which) (when is-win
:windows (filewatch/add fw td1 :last-write :last-access :file-name :dir-name :size :attributes :recursive)
(do (filewatch/add fw td2 :last-write :last-access :file-name :dir-name :size :attributes))
(filewatch/add fw td1 :last-write :last-access :file-name :dir-name :size :attributes :recursive) (when is-linux
(filewatch/add fw td2 :last-write :last-access :file-name :dir-name :size :attributes)) (filewatch/add fw td1 :close-write :create :delete)
# default (filewatch/add fw td2 :close-write :create :delete :ignored))
(do
(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)) (assert-no-error "filewatch/listen no error" (filewatch/listen fw))
# #