testCaseForFile :: FilePath -> Spec
testCaseForFile f =
  it ("can compile `" ++ takeBaseName f ++ "'") $ do
    output   <- exec f
    expected <- firstCommentIn f
    output `shouldBe` expected
testCaseForFile :: FilePath -> Spec
testCaseForFile f =
  it ("can compile `" ++ takeBaseName f ++ "'") $ do
    output   <- exec f
    expected <- firstCommentIn f
    output `shouldBe` expected
testCaseForFile f =
  it ("can compile `" ++ takeBaseName f ++ "'") $ do
    output   <- exec f
    expected <- firstCommentIn f
    output `shouldBe` expected