xmonad-vanessa-0.2.0.2: test/Spec.hs

import           Control.Monad
import           Test.Hspec
import           XMonad.Util.Keyboard

main = hspec $
    describe "parseKB" $
        it "gets current keyboard" $
            (show <$> parseKB) >>= (`shouldBe` "US")