1 files changed, 66 insertions, 0 deletions
diff --git a/testsuite/tests/cabal/all.T b/testsuite/tests/cabal/all.T
new file mode 100644
index 0000000000..d05d05fe1e
--- /dev/null
+++ b/testsuite/tests/cabal/all.T
@@ -0,0 +1,66 @@
+setTestOpts(only_compiler_types(['ghc']))
+
+def normaliseDynlibNames(str):
+    return re.sub('-ghc[0-9.]+\.', '-ghc<VERSION>.', str)
+
+test('ghcpkg01',
+     extra_clean(['local01.package.conf',
+                  'local01.package.conf.old']),
+     run_command,
+     ['$MAKE -s --no-print-directory ghcpkg01'])
+test('ghcpkg02',
+     [ignore_output,
+      extra_clean(['package.conf.ghcpkg02', 'package.conf.ghcpkg02.old'])],
+     run_command,
+     ['$MAKE -s --no-print-directory ghcpkg02'])
+test('ghcpkg03',
+     [extra_clean(['local03.package.conf',
+                   'local03.package.conf.old']),
+      normalise_errmsg_fun(normaliseDynlibNames)],
+     run_command,
+     ['$MAKE -s --no-print-directory ghcpkg03'])
+test('ghcpkg04',
+     [ignore_output,
+      extra_clean(['local04.package.conf',
+                   'local04.package.conf.old'])],
+     run_command,
+     ['$MAKE -s --no-print-directory ghcpkg04'])
+
+# Sometimes we get spurious warnings from ghc-pkg about missing
+# haddock-interfaces; this filters them out.
+def normalise_haddock_junk( str ):
+    return re.sub(r'Warning: haddock.*\n', '', str)
+
+test('ghcpkg05',
+     [ extra_clean(['local05a.package.conf',
+                    'local05a.package.conf.old',
+                    'local05b.package.conf',
+                    'local05b.package.conf.old']),
+       normalise_errmsg_fun(two_normalisers(normalise_haddock_junk,
+                                            normaliseDynlibNames))
+       ],
+     run_command,
+     ['$MAKE -s --no-print-directory ghcpkg05'])
+test('ghcpkg06',
+     [extra_clean(['local06.package.conf',
+                   'local06.package.conf.old'])],
+     run_command,
+     ['$MAKE -s --no-print-directory ghcpkg06'])
+
+# Test that we *can* compile a module that also belongs to a package
+# (this was disallowed in GHC 6.4 and earlier)
+test('pkg01', normal, compile, [''])
+
+test('T1750',
+     extra_clean(['T1750.hs', 'T1750.out',
+                  'localT1750.package.conf',
+                  'localT1750.package.conf.old']),
+     run_command, ['$MAKE -s --no-print-directory T1750'])
+
+test('shadow',
+     extra_clean(['shadow.out', 'shadow.hs', 'shadow.hi',
+                  'local1shadow1.package.conf',
+                  'local1shadow1.package.conf.old',
+                  'local1shadow2.package.conf',
+                  'local1shadow2.package.conf.old']),
+     run_command, ['$MAKE -s --no-print-directory shadow'])