File: stress-test-timeout

package info (click to toggle)
haskell-concurrent-extra 0.7.0.12-4
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 184 kB
  • sloc: haskell: 1,040; makefile: 6
file content (11 lines) | stat: -rw-r--r-- 400 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
 
--- a/Control/Concurrent/ReadWriteLock/Test.hs
+++ b/Control/Concurrent/ReadWriteLock/Test.hs
@@ -97,7 +97,7 @@ test2 = assert $ within (10 * a_moment)
           RWLock.acquireRead rwl
 
 stressTest :: Assertion
-stressTest = assert $ within (500 * a_moment) $ do
+stressTest = assert $ within (1000 * a_moment) $ do
   lock <- RWLock.new
 
   let randomDelay hi = randomRIO (0, hi) >>= threadDelay