summaryrefslogtreecommitdiffhomepage
path: root/test/Xmobar/Plugins/Monitors
diff options
context:
space:
mode:
Diffstat (limited to 'test/Xmobar/Plugins/Monitors')
-rw-r--r--test/Xmobar/Plugins/Monitors/CpuSpec.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/test/Xmobar/Plugins/Monitors/CpuSpec.hs b/test/Xmobar/Plugins/Monitors/CpuSpec.hs
index 449acd5..3d07dee 100644
--- a/test/Xmobar/Plugins/Monitors/CpuSpec.hs
+++ b/test/Xmobar/Plugins/Monitors/CpuSpec.hs
@@ -23,7 +23,7 @@ spec =
do let args = ["-L","3","-H","50","--normal","green","--high","red", "-t", "Cpu: <total>% <bar>"]
cpuArgs <- getArguments args
cpuValue <- runCpu cpuArgs
- cpuValue `shouldSatisfy` (\item -> "::" `isSuffixOf` item)
+ cpuValue `shouldSatisfy` (all (`elem` ":#") . last . words)
it "works with no icon pattern template" $
do let args = ["-L","3","-H","50","--normal","green","--high","red", "-t", "Cpu: <total>% <bar>", "--", "--load-icon-pattern", "<icon=bright_%%.xpm/>"]
cpuArgs <- getArguments args