open Ast open Printf let () = let input = "SELECT aa, ab FROM b1" in let lexbuf = Lexing.from_string input in match Parser.main Lexer.read_token lexbuf with | Query(Select (Column("ab")::Column("aa")::[], [Table "b1"])) -> printf("ok") | _ -> printf("not ok")