import Lean
open Lean Parser
def checkParse (cat : Name) (s : String) : MetaM Unit := do
if let .error s := runParserCategory (← getEnv) cat s then
throwError s
run_meta checkParse `tactic "unfold foo"
/-- error: <input>:1:7: expected identifier -/
#guard_msgs in run_meta checkParse `tactic "unfold (· + ·)"