Browse files

added renameException.ml

  • Loading branch information...
1 parent bbc3bd0 commit ef8f55ed915252162c09a994d938cdc65ea9892c @tturpin tturpin committed Jul 11, 2011
View
2 ocamlwizard/TODO
@@ -1,4 +1,4 @@
-- Git add renameException.ml
+- Git add renameLetModule/ModuleRec.ml
- Rename: replace in multiple files
- Grep: should be easy to implement using rename
- Rename: return a list of files that emacs should revert
View
3 ocamlwizard/test/Makefile
@@ -12,8 +12,7 @@ R_CASES=renameSimple.ml renameSigNewCaptured.ml renameSigOldCaptured.ml \
renameModtype.ml renameModtypeInSig.ml \
renameModule.ml renameModuleInSig.ml renameModuleInFunctor.ml \
renameModuleInFunctorType.ml \
- renameConstructor.ml renameField.ml
-# renameException.ml
+ renameConstructor.ml renameException.ml renameField.ml
R_TESTS=$(subst .ml,_rres.ml, $(R_CASES))
RES=match_cases_res.ml expansion_res.ml path_res.ml errors_res.ml \
View
5 ocamlwizard/test/renameException.ml
@@ -0,0 +1,5 @@
+exception $A
+
+let _ = match A with A -> ()
+
+let _ = try () with A -> ()
View
5 ocamlwizard/test/renameLetModule_rres.ml
@@ -1,5 +0,0 @@
-let _ =
- let module Y = struct let x = () end in
- Y.x
-Renamed 1 definition(s) and 1 reference(s)
-
View
14 ocamlwizard/test/renameModuleRec_rres.ml
@@ -1,14 +0,0 @@
-module rec M : sig val x : unit end = struct let x = () end
-and N : sig end = struct let y = M.x end
-Error: different environments
-Raised at file "pervasives.ml", line 22, characters 22-33
-Called from file "refactor/findName.ml", line 196, characters 24-57
-Called from file "refactor/findName.ml", line 217, characters 21-33
-Called from file "hashtbl.ml", line 157, characters 23-35
-Called from file "hashtbl.ml", line 161, characters 12-33
-Called from file "refactor/findName.ml", line 238, characters 27-62
-Called from file "refactor/rename.ml", line 307, characters 6-79
-Called from file "main/ocamlwizard.ml", line 96, characters 31-59
-Called from file "main/ocamlwizard.ml", line 61, characters 6-10
-
-

0 comments on commit ef8f55e

Please sign in to comment.