Fix tests

Author: Bodigrim

tests/Semaphore001.hs

@@ -4,6 +4,6 @@ import System.Posix
 
 main :: IO ()
 main = do
-  sem <- semOpen "/test" OpenSemFlags {semCreate = True, semExclusive = False} stdFileMode 1
+  sem <- semOpen "/test-001" OpenSemFlags {semCreate = True, semExclusive = False} stdFileMode 1
   semThreadWait sem
   semPost sem

tests/Semaphore002.hs

@@ -5,7 +5,7 @@ import System.Posix
 
 main :: IO ()
 main = do
-  sem <- semOpen "/test" OpenSemFlags {semCreate = True, semExclusive = False} stdFileMode 0
+  sem <- semOpen "/test-002" OpenSemFlags {semCreate = True, semExclusive = False} stdFileMode 0
   _ <- forkIO $ do
       threadDelay (1000*1000)
       semPost sem

tests/SemaphoreInterrupt.hs

@@ -8,7 +8,7 @@ import System.Posix
 main :: IO ()
 main = do
 
-  sem <- semOpen "/test" OpenSemFlags {semCreate = True, semExclusive = False} stdFileMode 0
+  sem <- semOpen "/test-interrupt" OpenSemFlags {semCreate = True, semExclusive = False} stdFileMode 0
   ref <- newIORef False
   _ <- forkIO $ do
     res <- semWaitInterruptible sem