From 1eea663ab4072ca68ac3144fe9e66c5beadf2d42 Mon Sep 17 00:00:00 2001 From: David Waern Date: Thu, 22 Jan 2009 19:57:47 +0000 Subject: Improve quasi-quotation test and add reference output --- tests/tests/QuasiExpr.html.ref | 336 ++++++++++++++++++++++++++++++++++++++++ tests/tests/QuasiQuote.hs | 4 +- tests/tests/QuasiQuote.html.ref | 92 +++++++++++ 3 files changed, 430 insertions(+), 2 deletions(-) create mode 100644 tests/tests/QuasiExpr.html.ref create mode 100644 tests/tests/QuasiQuote.html.ref (limited to 'tests') 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 @@ + + +QuasiExpr
ContentsIndex
QuasiExpr
Documentation
data Expr
Constructors
IntExpr Integer
AntiIntExpr String
BinopExpr BinOp Expr Expr
AntiExpr String
show/hide Instances
Data Expr
Show Expr
Typeable Expr
data BinOp
Constructors
AddOp
SubOp
MulOp
DivOp
show/hide Instances
Data BinOp
Show BinOp
Typeable BinOp
eval :: Expr -> Integer
parseExprExp :: String -> Q Exp
Produced by Haddock version 2.4.2
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 @@ + + +QuasiQuote
ContentsIndex
QuasiQuote
Documentation
val :: Integer
Produced by Haddock version 2.4.2
-- cgit v1.2.3