Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: eec8274059
Fetching contributors…

Cannot retrieve contributors at this time

36 lines (26 sloc) 0.982 kB
open Common
open Ast_nw
module Ast = Ast_nw
module Flag = Flag_parsing_nw
open OUnit
(*****************************************************************************)
(* Subsystem testing *)
(*****************************************************************************)
let test_tokens_nw file =
if not (file =~ ".*\\.nw")
then pr2 "warning: seems not a noweb file";
Flag.verbose_lexing := true;
Flag.verbose_parsing := true;
let toks = Parse_nw.tokens file in
toks +> List.iter (fun x -> pr2_gen x);
()
(*****************************************************************************)
(* Unit tests *)
(*****************************************************************************)
(*****************************************************************************)
(* Main entry for Arg *)
(*****************************************************************************)
let actions () = [
"-tokens_nw", " <file>",
Common.mk_action_1_arg test_tokens_nw;
]
Jump to Line
Something went wrong with that request. Please try again.