taffybar-7.0.1: test/unit/System/Taffybar/Information/Workspaces/EWMHSpec.hs

module System.Taffybar.Information.Workspaces.EWMHSpec (spec) where

import Data.List (elem)
import System.Taffybar.Information.Workspaces.EWMH
  ( defaultEWMHWorkspaceProviderConfig,
    workspaceUpdateEvents,
  )
import System.Taffybar.Information.X11DesktopInfo (xmonadVisibleWorkspaces)
import Test.Hspec

spec :: Spec
spec =
  describe "defaultEWMHWorkspaceProviderConfig" $
    it "subscribes to xmonad visible workspace updates" $
      xmonadVisibleWorkspaces `elem` workspaceUpdateEvents defaultEWMHWorkspaceProviderConfig
        `shouldBe` True