Add test for raise tag exception linking

Author: sim642

src/ocamlary/ocamlary.mli

@@ -226,6 +226,9 @@ val fun_maybe : ?yes:unit -> unit -> int
 val not_found : unit -> unit
 (** @raise Not_found That's all it does *)
 
+val kaboom : unit -> unit
+(** @raise Kaboom That's all it does *)
+
 val ocaml_org : string
 (** @see <http://ocaml.org/> The OCaml Web site *)
 

test/generators/html/Ocamlary.html

@@ -452,6 +452,24 @@ <h4 id="basic-type-and-value-stuff-with-advanced-doc-comments">
      </ul>
     </div>
    </div>
+   <div class="odoc-spec">
+    <div class="spec value anchored" id="val-kaboom">
+     <a href="#val-kaboom" class="anchor"></a>
+     <code>
+      <span><span class="keyword">val</span> kaboom : 
+       <span>unit <span class="arrow">&#45;&gt;</span></span> unit
+      </span>
+     </code>
+    </div>
+    <div class="spec-doc">
+     <ul class="at-tags">
+      <li class="raises"><span class="at-tag">raises</span> 
+       <a href="#exception-Kaboom"><code>Kaboom</code></a> 
+       <p>That's all it does</p>
+      </li>
+     </ul>
+    </div>
+   </div>
    <div class="odoc-spec">
     <div class="spec value anchored" id="val-ocaml_org">
      <a href="#val-ocaml_org" class="anchor"></a>

test/generators/latex/Ocamlary.tex

@@ -150,6 +150,11 @@ \subsubsection{Basic type and value stuff with advanced doc comments\label{basic
 \item[{raises \ocamlinlinecode{Not\_\allowbreak{}found}}]{That's all it does}\end{description}%
 \end{ocamlindent}%
 \medbreak
+\label{module-Ocamlary-val-kaboom}\ocamlcodefragment{\ocamltag{keyword}{val} kaboom : unit \ocamltag{arrow}{$\rightarrow$} unit}\begin{ocamlindent}\begin{description}\kern-\topsep
+\makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded
+\item[{raises \hyperref[module-Ocamlary-exception-Kaboom]{\ocamlinlinecode{\ocamlinlinecode{Kaboom}}}}]{That's all it does}\end{description}%
+\end{ocamlindent}%
+\medbreak
 \label{module-Ocamlary-val-ocaml_org}\ocamlcodefragment{\ocamltag{keyword}{val} ocaml\_\allowbreak{}org : string}\begin{ocamlindent}\begin{description}\kern-\topsep
 \makeatletter\advance\@topsepadd-\topsep\makeatother% topsep is hardcoded
 \item[{see \href{http://ocaml.org/}{http://ocaml.org/}\footnote{\url{http://ocaml.org/}}}]{The OCaml Web site}\end{description}%

test/generators/man/Ocamlary.3o

@@ -391,6 +391,13 @@ This is a_function with param and return type\.
 @raises Not_found: That's all it does
 .nf 
 .sp 
+\f[CB]val\fR kaboom : unit \f[CB]\->\fR unit
+.fi 
+.br 
+.ti +2
+@raises \f[CI]Kaboom\fR: That's all it does
+.nf 
+.sp 
 \f[CB]val\fR ocaml_org : string
 .fi 
 .br