diff options
| author | David Waern <david.waern@gmail.com> | 2009-01-22 19:57:47 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2009-01-22 19:57:47 +0000 |
| commit | 1eea663ab4072ca68ac3144fe9e66c5beadf2d42 (patch) | |
| tree | 86af14a02e924ccac3b98e47eb858fa6a8e64068 | |
| parent | 1abb4b96ff98b49e0b55c8cf55f2fdf1a35299e1 (diff) | |
Improve quasi-quotation test and add reference output
| -rw-r--r-- | tests/tests/QuasiExpr.html.ref | 336 | ||||
| -rw-r--r-- | tests/tests/QuasiQuote.hs | 4 | ||||
| -rw-r--r-- | tests/tests/QuasiQuote.html.ref | 92 |
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 +> -> 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 -> 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 +> |