Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

* main_test.ml:

  • Loading branch information...
commit a44247fb47ad5d76654e54ab68fdfd2fc1c105ee 1 parent d1ae7c2
@aryx aryx authored
Showing with 9 additions and 1 deletion.
  1. +9 −1 main_test.ml
View
10 main_test.ml
@@ -102,8 +102,15 @@ let main_action x =
(*****************************************************************************)
(* Extra Actions *)
(*****************************************************************************)
+type x = Foo of int
+
let action1 () =
- raise Todo
+ let x = Foo 1 in
+ pr2_gen x;
+ let x = 1 in
+ pr2_gen x;
+ ()
+
let test_json_pretty_printer file =
@@ -151,6 +158,7 @@ let pfff_extra_actions () = [
Overlay_code.adapt_database db (Overlay_code.load_overlay overlay) in
Database_code.save_database db' output
);
+ "-action1", "", Common.mk_action_0_arg action1;
]
(*****************************************************************************)
Please sign in to comment.
Something went wrong with that request. Please try again.