FileSystem.Event module test failures

[harendra-kumar]

Got these failures in CI (https://github.com/composewell/streamly/runs/6395584950?check_suite_focus=true):

paths: "/tmp/fsevent_dir-dcf935c50fc766be/watch-root/file" "/tmp/fsevent_dir-dcf935c50fc766be/watch-root/file"
      File deleted (file1) [✘]
      File created (file) [✔]
Watching on root [/tmp/fsevent_dir-535acecbe524e90a/watch-root] for [/tmp/fsevent_dir-535acecbe524e90a/watch-root]
root = /tmp/fsevent_dir-535acecbe524e90a/watch-root path =  absPath = /tmp/fsevent_dir-535acecbe524e90a/watch-root
      File modified (file1) [✘]
--------------------------
Wd = 1
Root = "/tmp/fsevent_dir-535acecbe524e90a/watch-root"
Path = ""
Cookie = Cookie 0
Flags 1073741856
Opened
Dir

paths: "/tmp/fsevent_dir-535acecbe524e90a/watch-root" "/tmp/fsevent_dir-535acecbe524e90a/watch-root/file1"
--------------------------
Wd = 1
Root = "/tmp/fsevent_dir-535acecbe524e90a/watch-root"
Path = ""
Cookie = Cookie 0
Flags 1073741825
Accessed
Dir

paths: "/tmp/fsevent_dir-535acecbe524e90a/watch-root" "/tmp/fsevent_dir-535acecbe524e90a/watch-root/file1"
--------------------------
Wd = 1
Root = "/tmp/fsevent_dir-535acecbe524e90a/watch-root"
Path = ""
Cookie = Cookie 0
Flags 1073741840
NonWriteClosed
Dir

paths: "/tmp/fsevent_dir-535acecbe524e90a/watch-root" "/tmp/fsevent_dir-535acecbe524e90a/watch-root/file1"
      File moved (file1 file2) [✘]

Failures:

  ./Streamly/Test/FileSystem/Event/Common.hs:153:5: 
  1) FileSystem.Event.non-recursive, Root type DirType, File deleted (file1)
       uncaught exception: IOException of type ResourceBusy
       /tmp/fsevent_dir-99259db4c85868ea/watch-root/file1: openFile: resource busy (file is locked)

  To rerun use: --match "/FileSystem.Event/non-recursive/Root type DirType/File deleted (file1)/"

  ./Streamly/Test/FileSystem/Event/Common.hs:153:5: 
  2) FileSystem.Event.non-recursive, Root type DirType, File modified (file1)
       uncaught exception: IOException of type ResourceBusy
       /tmp/fsevent_dir-ae783b2043859db9/watch-root/file1: openFile: resource busy (file is locked)

  To rerun use: --match "/FileSystem.Event/non-recursive/Root type DirType/File modified (file1)/"

  ./Streamly/Test/FileSystem/Event/Common.hs:153:5: 
  3) FileSystem.Event.non-recursive, Root type DirType, File moved (file1 file2)
       uncaught exception: IOException of type ResourceBusy
       /tmp/fsevent_dir-52d24ea737ce700d/watch-root/file1: openFile: resource busy (file is locked)

  To rerun use: --match "/FileSystem.Event/non-recursive/Root type DirType/File moved (file1 file2)/"

Randomized with seed 2079012002

Finished in 0.8283 seconds
7 examples, 3 failures
Test suite FileSystem.Event: FAIL
Test suite logged to:
/home/runner/work/streamly/streamly/.packcheck/streamly-0.8.2/dist-newstyle/build/x86_64-linux/ghc-8.6.5/streamly-tests-0.0.0/t/FileSystem.Event/test/streamly-tests-0.0.0-FileSystem.Event.log
0 of 1 test suites (0 of 1 test cases) passed

[adithyaov]

We can debug this with a patched GHC.

We can, Put debug code in GHC Create a binary distribution of GHC and host it somewhere Create a CI to install GHC from there

And then if the problem happens we will hopefully catch it.