summaryrefslogtreecommitdiff
path: root/testsuite/tests/simplStg/should_compile/all.T
blob: 19fa5134b4c87e30fc03ef11d3f97e7cb57520f5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
# Args to compile_and_run are:
#	extra compile flags
#	extra run flags
#	expected process return value, if not zero

# Only compile with optimisation
def f( name, opts ):
  opts.only_ways = ['optasm']

setTestOpts(f)

def checkStgString(needle):
    def norm(str):
        if needle in str:
            return "%s contained in -ddump-simpl\n" % needle
        else:
            return "%s not contained in -ddump-simpl\n" % needle
    return normalise_errmsg_fun(norm)



test('T13588', [ checkStgString('case') ] , compile, ['-ddump-stg'])