tests: remove extra_files.py (#12223)
[ghc.git] / testsuite / tests / cabal / all.T
1 def normaliseDynlibNames(str):
2     return re.sub('-ghc[0-9.]+\.', '-ghc<VERSION>.', str)
3
4 test('ghcpkg01', [extra_files(['test.pkg', 'test2.pkg', 'test3.pkg'])], run_command, ['$MAKE -s --no-print-directory ghcpkg01'])
5
6 # Use ignore_stderr to prevent (when HADDOCK_DOCS=NO):
7 #  warning: haddock-interfaces .. doesn't exist or isn't a file
8 test('ghcpkg02', [ignore_stderr], run_command,
9      ['$MAKE -s --no-print-directory ghcpkg02'])
10
11 test('ghcpkg03', [extra_files(['test.pkg', 'test2.pkg', 'test4.pkg']),
12                   normalise_errmsg_fun(normaliseDynlibNames)], run_command,
13      ['$MAKE -s --no-print-directory ghcpkg03'])
14
15 def normalise_package_order(s):
16     # Package order is not deterministic?
17     return re.sub('testpkg-1.2.3.4 newtestpkg-2.0',
18                   'newtestpkg-2.0 testpkg-1.2.3.4',
19                   s)
20
21 test('ghcpkg04', [extra_files(['test.pkg', 'test5.pkg']),
22                   normalise_errmsg_fun(normalise_package_order)], run_command,
23      ['$MAKE -s --no-print-directory ghcpkg04'])
24
25 # Sometimes we get spurious warnings from ghc-pkg about missing
26 # haddock-interfaces; this filters them out.
27 def normalise_haddock_junk( str ):
28     return re.sub(r'Warning: haddock.*\n', '', str)
29
30 test('ghcpkg05',
31      [extra_files(['test2.pkg', 'test3.pkg']),
32       normalise_errmsg_fun(normalise_haddock_junk, normaliseDynlibNames)],
33      run_command, ['$MAKE -s --no-print-directory ghcpkg05'])
34 test('ghcpkg06', [extra_files(['test.pkg', 'testdup.pkg'])], run_command, ['$MAKE -s --no-print-directory ghcpkg06'])
35
36 test('ghcpkg07', [extra_files(['test.pkg', 'test7a.pkg', 'test7b.pkg'])], run_command, ['$MAKE -s --no-print-directory ghcpkg07'])
37
38 # Test that we *can* compile a module that also belongs to a package
39 # (this was disallowed in GHC 6.4 and earlier)
40 test('pkg01', normal, compile, [''])
41
42 test('T1750', [], run_command, ['$MAKE -s --no-print-directory T1750'])
43
44 test('T5442a', [extra_files(['test.pkg'])], run_command, ['$MAKE -s --no-print-directory T5442a'])
45
46 test('T5442b', [extra_files(['test.pkg'])], run_command, ['$MAKE -s --no-print-directory T5442b'])
47
48 test('T5442c', [extra_files(['test.pkg'])], run_command, ['$MAKE -s --no-print-directory T5442c'])
49
50 test('T5442d', [extra_files(['shadow1.pkg', 'shadow2.pkg', 'shadow4.pkg'])], run_command, ['$MAKE -s --no-print-directory T5442d'])
51
52 test('shadow', [], run_command, ['$MAKE -s --no-print-directory shadow'])
53
54 test('T12485a', [extra_files(['shadow1.pkg', 'shadow2.pkg', 'shadow3.pkg'])], run_command, ['$MAKE -s --no-print-directory T12485a'])