HyprlandWorkspacesSpec.hs

module System.Taffybar.Widget.HyprlandWorkspacesSpec where

import Data.Text qualified as T
import System.Taffybar.Widget.Workspaces.Hyprland
  ( HyprlandWindow (..),
    sortHyprlandWindowsByPosition,
  )
import Test.Hspec

mkWin :: String -> Bool -> Maybe (Int, Int) -> HyprlandWindow
mkWin addr minimized atPos =
  HyprlandWindow
    { windowAddress = T.pack addr,
      windowTitle = addr,
      windowClass = Nothing,
      windowInitialClass = Nothing,
      windowAt = atPos,
      windowUrgent = False,
      windowActive = False,
      windowMinimized = minimized
    }

spec :: Spec
spec = do
  describe "sortHyprlandWindowsByPosition" $ do
    it "orders non-minimized windows first, then by (x, y) position" $ do
      let a = mkWin "a" False (Just (10, 0))
          b = mkWin "b" False (Just (0, 100))
          c = mkWin "c" True (Just (0, 0))
      sortHyprlandWindowsByPosition [a, b, c] `shouldBe` [b, a, c]

    it "puts windows without a position at the end" $ do
      let a = mkWin "a" False Nothing
          b = mkWin "b" False (Just (0, 0))
      sortHyprlandWindowsByPosition [a, b] `shouldBe` [b, a]