aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/tests/QuasiExpr.html.ref336
-rw-r--r--tests/tests/QuasiQuote.hs4
-rw-r--r--tests/tests/QuasiQuote.html.ref92
3 files changed, 430 insertions, 2 deletions
diff --git a/tests/tests/QuasiExpr.html.ref b/tests/tests/QuasiExpr.html.ref
new file mode 100644
index 00000000..cc403c38
--- /dev/null
+++ b/tests/tests/QuasiExpr.html.ref
@@ -0,0 +1,336 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
+<!--Rendered using the Haskell Html Library v0.2-->
+<HTML
+><HEAD
+><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=UTF-8"
+><TITLE
+>QuasiExpr</TITLE
+><LINK HREF="haddock.css" REL="stylesheet" TYPE="text/css"
+><SCRIPT SRC="haddock-util.js" TYPE="text/javascript"
+></SCRIPT
+><SCRIPT TYPE="text/javascript"
+>window.onload = function () {setSynopsis("mini_QuasiExpr.html")};</SCRIPT
+></HEAD
+><BODY
+><TABLE CLASS="vanilla" CELLSPACING="0" CELLPADDING="0"
+><TR
+><TD CLASS="topbar"
+><TABLE CLASS="vanilla" CELLSPACING="0" CELLPADDING="0"
+><TR
+><TD
+><IMG SRC="haskell_icon.gif" WIDTH="16" HEIGHT="16" ALT=" "
+></TD
+><TD CLASS="title"
+></TD
+><TD CLASS="topbut"
+><A HREF="index.html"
+>Contents</A
+></TD
+><TD CLASS="topbut"
+><A HREF="doc-index.html"
+>Index</A
+></TD
+></TR
+></TABLE
+></TD
+></TR
+><TR
+><TD CLASS="modulebar"
+><TABLE CLASS="vanilla" CELLSPACING="0" CELLPADDING="0"
+><TR
+><TD
+><FONT SIZE="6"
+>QuasiExpr</FONT
+></TD
+></TR
+></TABLE
+></TD
+></TR
+><TR
+><TD CLASS="s15"
+></TD
+></TR
+><TR
+><TD CLASS="s15"
+></TD
+></TR
+><TR
+><TD CLASS="s15"
+></TD
+></TR
+><TR
+><TD CLASS="section1"
+>Documentation</TD
+></TR
+><TR
+><TD CLASS="s15"
+></TD
+></TR
+><TR
+><TD CLASS="decl"
+><SPAN CLASS="keyword"
+>data</SPAN
+> <A NAME="t:Expr"
+><A NAME="t%3AExpr"
+></A
+></A
+><B
+>Expr</B
+> </TD
+></TR
+><TR
+><TD CLASS="body"
+><TABLE CLASS="vanilla" CELLSPACING="0" CELLPADDING="0"
+><TR
+><TD CLASS="section4"
+>Constructors</TD
+></TR
+><TR
+><TD CLASS="body"
+><TABLE CLASS="vanilla" CELLSPACING="1" CELLPADDING="0"
+><TR
+><TD CLASS="arg"
+><A NAME="v:IntExpr"
+><A NAME="v%3AIntExpr"
+></A
+></A
+><B
+>IntExpr</B
+> Integer</TD
+><TD CLASS="rdoc"
+></TD
+></TR
+><TR
+><TD CLASS="arg"
+><A NAME="v:AntiIntExpr"
+><A NAME="v%3AAntiIntExpr"
+></A
+></A
+><B
+>AntiIntExpr</B
+> String</TD
+><TD CLASS="rdoc"
+></TD
+></TR
+><TR
+><TD CLASS="arg"
+><A NAME="v:BinopExpr"
+><A NAME="v%3ABinopExpr"
+></A
+></A
+><B
+>BinopExpr</B
+> <A HREF="QuasiExpr.html#t%3ABinOp"
+>BinOp</A
+> <A HREF="QuasiExpr.html#t%3AExpr"
+>Expr</A
+> <A HREF="QuasiExpr.html#t%3AExpr"
+>Expr</A
+></TD
+><TD CLASS="rdoc"
+></TD
+></TR
+><TR
+><TD CLASS="arg"
+><A NAME="v:AntiExpr"
+><A NAME="v%3AAntiExpr"
+></A
+></A
+><B
+>AntiExpr</B
+> String</TD
+><TD CLASS="rdoc"
+></TD
+></TR
+></TABLE
+></TD
+></TR
+><TR
+><TD CLASS="section4"
+><IMG SRC="minus.gif" CLASS="coll" ONCLICK="toggle(this,'i:Expr')" ALT="show/hide"
+> Instances</TD
+></TR
+><TR
+><TD CLASS="body"
+><DIV ID="i:Expr" STYLE="display:block;"
+><TABLE CLASS="vanilla" CELLSPACING="1" CELLPADDING="0"
+><TR
+><TD CLASS="decl"
+>Data <A HREF="QuasiExpr.html#t%3AExpr"
+>Expr</A
+></TD
+></TR
+><TR
+><TD CLASS="decl"
+>Show <A HREF="QuasiExpr.html#t%3AExpr"
+>Expr</A
+></TD
+></TR
+><TR
+><TD CLASS="decl"
+>Typeable <A HREF="QuasiExpr.html#t%3AExpr"
+>Expr</A
+></TD
+></TR
+></TABLE
+></DIV
+></TD
+></TR
+></TABLE
+></TD
+></TR
+><TR
+><TD CLASS="s15"
+></TD
+></TR
+><TR
+><TD CLASS="decl"
+><SPAN CLASS="keyword"
+>data</SPAN
+> <A NAME="t:BinOp"
+><A NAME="t%3ABinOp"
+></A
+></A
+><B
+>BinOp</B
+> </TD
+></TR
+><TR
+><TD CLASS="body"
+><TABLE CLASS="vanilla" CELLSPACING="0" CELLPADDING="0"
+><TR
+><TD CLASS="section4"
+>Constructors</TD
+></TR
+><TR
+><TD CLASS="body"
+><TABLE CLASS="vanilla" CELLSPACING="1" CELLPADDING="0"
+><TR
+><TD CLASS="arg"
+><A NAME="v:AddOp"
+><A NAME="v%3AAddOp"
+></A
+></A
+><B
+>AddOp</B
+></TD
+><TD CLASS="rdoc"
+></TD
+></TR
+><TR
+><TD CLASS="arg"
+><A NAME="v:SubOp"
+><A NAME="v%3ASubOp"
+></A
+></A
+><B
+>SubOp</B
+></TD
+><TD CLASS="rdoc"
+></TD
+></TR
+><TR
+><TD CLASS="arg"
+><A NAME="v:MulOp"
+><A NAME="v%3AMulOp"
+></A
+></A
+><B
+>MulOp</B
+></TD
+><TD CLASS="rdoc"
+></TD
+></TR
+><TR
+><TD CLASS="arg"
+><A NAME="v:DivOp"
+><A NAME="v%3ADivOp"
+></A
+></A
+><B
+>DivOp</B
+></TD
+><TD CLASS="rdoc"
+></TD
+></TR
+></TABLE
+></TD
+></TR
+><TR
+><TD CLASS="section4"
+><IMG SRC="minus.gif" CLASS="coll" ONCLICK="toggle(this,'i:BinOp')" ALT="show/hide"
+> Instances</TD
+></TR
+><TR
+><TD CLASS="body"
+><DIV ID="i:BinOp" STYLE="display:block;"
+><TABLE CLASS="vanilla" CELLSPACING="1" CELLPADDING="0"
+><TR
+><TD CLASS="decl"
+>Data <A HREF="QuasiExpr.html#t%3ABinOp"
+>BinOp</A
+></TD
+></TR
+><TR
+><TD CLASS="decl"
+>Show <A HREF="QuasiExpr.html#t%3ABinOp"
+>BinOp</A
+></TD
+></TR
+><TR
+><TD CLASS="decl"
+>Typeable <A HREF="QuasiExpr.html#t%3ABinOp"
+>BinOp</A
+></TD
+></TR
+></TABLE
+></DIV
+></TD
+></TR
+></TABLE
+></TD
+></TR
+><TR
+><TD CLASS="s15"
+></TD
+></TR
+><TR
+><TD CLASS="decl"
+><A NAME="v:eval"
+><A NAME="v%3Aeval"
+></A
+></A
+><B
+>eval</B
+> :: <A HREF="QuasiExpr.html#t%3AExpr"
+>Expr</A
+> -&gt; Integer</TD
+></TR
+><TR
+><TD CLASS="s15"
+></TD
+></TR
+><TR
+><TD CLASS="decl"
+><A NAME="v:parseExprExp"
+><A NAME="v%3AparseExprExp"
+></A
+></A
+><B
+>parseExprExp</B
+> :: String -&gt; Q Exp</TD
+></TR
+><TR
+><TD CLASS="s15"
+></TD
+></TR
+><TR
+><TD CLASS="botbar"
+>Produced by <A HREF="http://www.haskell.org/haddock/"
+>Haddock</A
+> version 2.4.2</TD
+></TR
+></TABLE
+></BODY
+></HTML
+>
diff --git a/tests/tests/QuasiQuote.hs b/tests/tests/QuasiQuote.hs
index a1aa7256..ed3c3787 100644
--- a/tests/tests/QuasiQuote.hs
+++ b/tests/tests/QuasiQuote.hs
@@ -5,5 +5,5 @@ module QuasiQuote where
import QuasiExpr
-run :: IO ()
-run = do { print $ eval [$expr|1 + 2|] }
+val :: Integer
+val = eval [$expr|1 + 2|]
diff --git a/tests/tests/QuasiQuote.html.ref b/tests/tests/QuasiQuote.html.ref
new file mode 100644
index 00000000..be60bb01
--- /dev/null
+++ b/tests/tests/QuasiQuote.html.ref
@@ -0,0 +1,92 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
+<!--Rendered using the Haskell Html Library v0.2-->
+<HTML
+><HEAD
+><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=UTF-8"
+><TITLE
+>QuasiQuote</TITLE
+><LINK HREF="haddock.css" REL="stylesheet" TYPE="text/css"
+><SCRIPT SRC="haddock-util.js" TYPE="text/javascript"
+></SCRIPT
+><SCRIPT TYPE="text/javascript"
+>window.onload = function () {setSynopsis("mini_QuasiQuote.html")};</SCRIPT
+></HEAD
+><BODY
+><TABLE CLASS="vanilla" CELLSPACING="0" CELLPADDING="0"
+><TR
+><TD CLASS="topbar"
+><TABLE CLASS="vanilla" CELLSPACING="0" CELLPADDING="0"
+><TR
+><TD
+><IMG SRC="haskell_icon.gif" WIDTH="16" HEIGHT="16" ALT=" "
+></TD
+><TD CLASS="title"
+></TD
+><TD CLASS="topbut"
+><A HREF="index.html"
+>Contents</A
+></TD
+><TD CLASS="topbut"
+><A HREF="doc-index.html"
+>Index</A
+></TD
+></TR
+></TABLE
+></TD
+></TR
+><TR
+><TD CLASS="modulebar"
+><TABLE CLASS="vanilla" CELLSPACING="0" CELLPADDING="0"
+><TR
+><TD
+><FONT SIZE="6"
+>QuasiQuote</FONT
+></TD
+></TR
+></TABLE
+></TD
+></TR
+><TR
+><TD CLASS="s15"
+></TD
+></TR
+><TR
+><TD CLASS="s15"
+></TD
+></TR
+><TR
+><TD CLASS="s15"
+></TD
+></TR
+><TR
+><TD CLASS="section1"
+>Documentation</TD
+></TR
+><TR
+><TD CLASS="s15"
+></TD
+></TR
+><TR
+><TD CLASS="decl"
+><A NAME="v:val"
+><A NAME="v%3Aval"
+></A
+></A
+><B
+>val</B
+> :: Integer</TD
+></TR
+><TR
+><TD CLASS="s15"
+></TD
+></TR
+><TR
+><TD CLASS="botbar"
+>Produced by <A HREF="http://www.haskell.org/haddock/"
+>Haddock</A
+> version 2.4.2</TD
+></TR
+></TABLE
+></BODY
+></HTML
+>