readTest str mat = do
  it ("read " ++ str) $ do
    fromXY str `shouldBe` mat
readTest str mat = do
  it ("read " ++ str) $ do
    fromXY str `shouldBe` mat
readTest str mat = do
  it ("read " ++ str) $ do
    fromXY str `shouldBe` mat