A failing testcase for T12485

Test Plan: it's just a testcase

Reviewers: ezyang, simonmar, bgamari, austin

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D2450

GHC Trac Issues: #12485

testsuite/driver/extra_files.py

@@ -84,6 +84,7 @@ extra_src_files = {
   'T11827': ['A.hs', 'A.hs-boot', 'B.hs'],
   'T12062': ['A.hs', 'A.hs-boot', 'C.hs'],
   'T12035j': ['T12035.hs', 'T12035a.hs', 'T12035.hs-boot'],
+  'T12485': ['a.pkg', 'b.pkg', 'Main.hs'],
   'T1372': ['p1/', 'p2/'],
   'T1407': ['A.c'],
   'T1959': ['B.hs', 'C.hs', 'D.hs', 'E1.hs', 'E2.hs'],

testsuite/tests/cabal/T12485/Main.hs

+module Main where
+main = main

testsuite/tests/cabal/T12485/Makefile

+TOP=../../..
+include $(TOP)/mk/boilerplate.mk
+include $(TOP)/mk/test.mk
+
+T12485 :
+	@rm -rf a.db b.db
+	'$(GHC_PKG)' init a.db
+	'$(GHC_PKG)' -f a.db register a.pkg
+	'$(GHC_PKG)' init b.db
+	'$(GHC_PKG)' -f a.db/ -f b.db/ register b.pkg # register b.pkg in b.db
+	# -package-db in dependency order
+	'$(TEST_HC)' -XNoImplicitPrelude -fforce-recomp -hide-all-packages -no-user-package-db -package-db a.db -package-db b.db -package-id a-1-XXX -package-id b-1-XXX Main.hs
+	# -package-db in reverse dependency order
+	'$(TEST_HC)' -XNoImplicitPrelude -fforce-recomp -hide-all-packages -no-user-package-db -package-db b.db -package-db a.db -package-id a-1-XXX -package-id b-1-XXX Main.hs

testsuite/tests/cabal/T12485/T12485.stdout

+Reading package info from "a.pkg" ... done.
+Reading package info from "b.pkg" ... done.
+[1 of 1] Compiling Main             ( Main.hs, Main.o )
+Linking Main ...
+[1 of 1] Compiling Main             ( Main.hs, Main.o )
+Linking Main ...

testsuite/tests/cabal/T12485/a.pkg

+name: a
+version: 1
+id: a-1-XXX
+key: a-1-XXX
+abi: aaa
+depends:

testsuite/tests/cabal/T12485/all.T

+test('T12485',
+     [extra_clean(['a.db', 'b.db', 'Main.o', 'Main', 'Main.hi']),
+      expect_broken(12485)],
+     run_command,
+     ['$MAKE -s --no-print-directory T12485'])

testsuite/tests/cabal/T12485/b.pkg

+name: b
+version: 1
+id: b-1-XXX
+key: b-1-XXX
+depends: a-1-XXX