all.T 1.07 KB
Newer Older
1
# These tests try test the rebindable-syntax feature of GHC,
2
# which you get when you use -XNoImplicitPrelude
3
4
5
6
7
#
# Written by Ashley Yakeley

# No point in doing anything except the normal way 
setTestOpts(only_ways(['normal']));
ross's avatar
ross committed
8
setTestOpts(only_compiler_types(['ghc']))
9
10
11
12
13

test('rebindable1', normal, compile, [''])
test('rebindable2', normal, compile_and_run, [''])
test('rebindable3', normal, compile_and_run, [''])
test('rebindable4', normal, compile_and_run, [''])
14
test('rebindable5', normal, compile_and_run, [''])
15

16
# rebindable6 has become expected failures
17
# following Trac #1537
Ian Lynagh's avatar
Ian Lynagh committed
18
test('rebindable6', if_compiler_lt('ghc', '6.9', skip), compile_fail, [''])
19

20
test('rebindable7', normal, compile_and_run, [''])
Ian Lynagh's avatar
Ian Lynagh committed
21
test('rebindable8', if_compiler_lt('ghc', '6.9', expect_broken(1537)),
22
                    compile, [''])
23
24
test('rebindable9', if_compiler_lt('ghc', '6.9', expect_broken(1537)),
                    compile, [''])
25
26
27

# Tests from Oleg
test('DoRestrictedM', normal, compile, [''])
28
29
test('DoParamM', compose(if_compiler_lt('ghc', '6.9', skip), reqlib('mtl')),
     compile_fail, [''])