10 lines
272 B
OCaml
10 lines
272 B
OCaml
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")
|