Add tests

Author: rynoV

test/corpus/type_defn.txt

@@ -2087,6 +2087,64 @@ exception MyError of string * int
         (long_identifier
           (identifier))))))
 
+================================================================================
+exception defn 3
+================================================================================
+
+exception MyError
+
+--------------------------------------------------------------------------------
+
+(file
+  (exception_definition
+    (long_identifier
+      (identifier))))
+
+================================================================================
+exception defn 4
+================================================================================
+
+exception internal MyError
+
+--------------------------------------------------------------------------------
+
+(file
+  (exception_definition
+    (access_modifier)
+    (long_identifier
+      (identifier))))
+
+================================================================================
+exception defn 5
+================================================================================
+
+exception private MyError
+
+--------------------------------------------------------------------------------
+
+(file
+  (exception_definition
+    (access_modifier)
+    (long_identifier
+      (identifier))))
+
+================================================================================
+exception defn 6
+================================================================================
+
+exception private MyError of string
+
+--------------------------------------------------------------------------------
+
+(file
+  (exception_definition
+    (access_modifier)
+    (long_identifier
+      (identifier))
+    (simple_type
+      (long_identifier
+        (identifier)))))
+
 ================================================================================
 member val with get, set
 ================================================================================