summaryrefslogtreecommitdiffhomepage
path: root/test/Xmobar
diff options
context:
space:
mode:
Diffstat (limited to 'test/Xmobar')
-rw-r--r--test/Xmobar/Plugins/Monitors/AlsaSpec.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/test/Xmobar/Plugins/Monitors/AlsaSpec.hs b/test/Xmobar/Plugins/Monitors/AlsaSpec.hs
index 53c720f..14810dd 100644
--- a/test/Xmobar/Plugins/Monitors/AlsaSpec.hs
+++ b/test/Xmobar/Plugins/Monitors/AlsaSpec.hs
@@ -58,7 +58,9 @@ runFakeAlsactlTest =
waiterTaskIsRunning <- newEmptyMVar :: IO (MVar ())
waiterTaskIsWaiting <- newEmptyMVar :: IO (MVar ())
- withMonitorWaiter fifoPath (Just fakeAlsactlPath) $ \waitFunc -> do
+ let outputCallback msg = fail ("Did not expect the output callback to be invoked (message: "++show msg++")")
+
+ withMonitorWaiter fifoPath (Just fakeAlsactlPath) outputCallback $ \waitFunc -> do
let addToTimeline e = modifyMVar_ timeline (pure . (e :))