Commit 6b0d58fc authored by simonpj's avatar simonpj

[project @ 2005-11-30 14:17:35 by simonpj]

Add mkName test
parent 87920fe6
{-# OPTIONS -fth #-}
-- Test name quoting and splicing, for built-in syntax
module TH_mkName where
import Language.Haskell.TH
x1 = $( return (ConE '()))
x2 = $( return (ConE '(,)))
x3 = $( return (ConE '[]))
x4 = $( return (ConE '(:)))
x5 = $( return (ConE 'Just))
y1 = $( return (ConE (mkName "()")))
y2 = $( return (ConE (mkName "(,)")))
y3 = $( return (ConE (mkName "[]")))
y4 = $( return (ConE (mkName ":")))
y5 = $( return (ConE (mkName "Just")))
......@@ -7,6 +7,8 @@ setTestOpts(f)
setTestOpts(only_compiler_types(['ghc']))
setTestOpts(only_ways(['normal']));
test('TH_mkName', normal, compile, [''])
test('TH_repE1', normal, compile, [''])
test('TH_repE2', normal, compile_and_run, [''])
test('TH_repE3', normal, compile, [''])
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment