Commit 130883c9 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Test for Trac #1814

parent d8090815
:m +Language.Haskell.TH
let { g1 :: Q Exp -> Q Exp; g1 x = x }
let { g2 :: Name -> Q Exp; g2 x = return (VarE x) }
let h x = x::Int
$(g1 [| h |]) 5
$(g2 'h) 6
......@@ -5,7 +5,7 @@ def f(opts):
setTestOpts(f)
setTestOpts(only_compiler_types(['ghc']))
setTestOpts(only_ways(['normal']));
setTestOpts(only_ways(['normal','ghci']))
test('TH_mkName', normal, compile, ['-v0'])
......@@ -77,3 +77,5 @@ test('TH_ppr1', normal, compile_and_run, ['-fglasgow-exts'])
test('TH_fail', normal, compile_fail, ['-v0'])
test('TH_runIO', namebase_if_compiler_lt('ghc','6.9', 'TH_runIO-6.8'), compile_fail, ['-v0'])
test('TH_ghci1', normal, ghci_script, ['TH_ghci1.script'])
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