Skip to content
This repository has been archived by the owner on Jun 4, 2019. It is now read-only.

Commit

Permalink
* lang_java/parsing/test_parsing_java.ml:
Browse files Browse the repository at this point in the history
  • Loading branch information
pad committed Dec 15, 2012
1 parent f828c6a commit 68895d5
Showing 1 changed file with 0 additions and 4 deletions.
4 changes: 0 additions & 4 deletions lang_java/parsing/test_parsing_java.ml
Expand Up @@ -62,7 +62,6 @@ let test_parse xs =
);
()

(* ---------------------------------------------------------------------- *)
let test_lexer file =
let lexbuf = Lexing.from_channel (open_in file) in
while true do
Expand All @@ -72,15 +71,12 @@ let test_lexer file =
exit 0
done

(* ---------------------------------------------------------------------- *)
let test_dump file =
let ast = Parse_java.parse_program file in
let v = Meta_ast_java.vof_any (Ast_java.Program ast) in
let str = Ocaml.string_of_v v in
pr str

(* ---------------------------------------------------------------------- *)

let test_visitor file =
(*
Expand Down

0 comments on commit 68895d5

Please sign in to comment.