Skip to content

Commit 692a26e

Browse files
committed
Ignoring time resolution test
1 parent ce6767e commit 692a26e

File tree

1 file changed

+5
-4
lines changed

1 file changed

+5
-4
lines changed

ghcide/test/exe/Main.hs

Lines changed: 5 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -5784,10 +5784,11 @@ unitTests = do
57845784
actualOrder <- liftIO $ readIORef orderRef
57855785

57865786
liftIO $ actualOrder @?= reverse [(1::Int)..20]
5787-
, testCase "timestamps have millisecond resolution" $ do
5788-
resolution_us <- findResolution_us 1
5789-
let msg = printf "Timestamps do not have millisecond resolution: %dus" resolution_us
5790-
assertBool msg (resolution_us <= 1000)
5787+
, ignoreTestBecause "The test fails sometimes showing 10000us" $
5788+
testCase "timestamps have millisecond resolution" $ do
5789+
resolution_us <- findResolution_us 1
5790+
let msg = printf "Timestamps do not have millisecond resolution: %dus" resolution_us
5791+
assertBool msg (resolution_us <= 1000)
57915792
, Progress.tests
57925793
]
57935794

0 commit comments

Comments
 (0)