diff options
| -rw-r--r-- | test/Xmobar/Plugins/Monitors/CpuSpec.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/Xmobar/Plugins/Monitors/CpuSpec.hs b/test/Xmobar/Plugins/Monitors/CpuSpec.hs index 3d07dee..d3155ef 100644 --- a/test/Xmobar/Plugins/Monitors/CpuSpec.hs +++ b/test/Xmobar/Plugins/Monitors/CpuSpec.hs @@ -21,7 +21,7 @@ spec = cpuValue `shouldSatisfy` (\item -> "Cpu:" `isPrefixOf` item) it "works with bar template" $ do let args = ["-L","3","-H","50","--normal","green","--high","red", "-t", "Cpu: <total>% <bar>"] - cpuArgs <- getArguments args + cpuArgs <- getArguments $ map (filter ('#' /=)) args cpuValue <- runCpu cpuArgs cpuValue `shouldSatisfy` (all (`elem` ":#") . last . words) it "works with no icon pattern template" $ |