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

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