summaryrefslogtreecommitdiff
path: root/testsuite/tests/rts/T13082/all.T
blob: 82191270516b01a75a42e740c429b89a49f15926 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
import string
import re

#--------------------------------------
# Python normalization functions
#--------------------------------------

def normalise_search_dirs (str):
  str = re.sub(r"directories searched:\s+.+$",
               r"directories searched: (none)", str, flags=re.MULTILINE)
  str = re.sub(r"^\s+[A-Za-z]:[\\\/].+$", "", str, flags=re.MULTILINE)
  return str

#--------------------------------------
# Test functions
#--------------------------------------
test('T13082_good',
     [extra_files(['foo.c', 'main.hs', 'foo_dll.c']),
      unless(opsys('mingw32'), skip)],
     makefile_test, ['T13082_good'])

test('T13082_fail', [extra_files(['main.hs']), unless(opsys('mingw32'), skip),
                     normalise_errmsg_fun(normalise_search_dirs)],
     makefile_test, ['T13082_fail'])