diff options
| author | Bartosz Nitka <niteria@gmail.com> | 2016-08-31 13:52:35 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-08-31 14:28:30 -0400 |
| commit | a07a3ffa3efda6f7ebe68841e15ef89ac0d313b1 (patch) | |
| tree | 371c857857e8e1b2a2f3fd44c355c886f48848ea | |
| parent | 2d220263f6e5f49139f5571b7a5bc1649cb9ac8c (diff) | |
| download | haskell-a07a3ffa3efda6f7ebe68841e15ef89ac0d313b1.tar.gz | |
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
| -rw-r--r-- | testsuite/driver/extra_files.py | 1 | ||||
| -rw-r--r-- | testsuite/tests/cabal/T12485/Main.hs | 2 | ||||
| -rw-r--r-- | testsuite/tests/cabal/T12485/Makefile | 14 | ||||
| -rw-r--r-- | testsuite/tests/cabal/T12485/T12485.stdout | 6 | ||||
| -rw-r--r-- | testsuite/tests/cabal/T12485/a.pkg | 6 | ||||
| -rw-r--r-- | testsuite/tests/cabal/T12485/all.T | 5 | ||||
| -rw-r--r-- | testsuite/tests/cabal/T12485/b.pkg | 5 |
7 files changed, 39 insertions, 0 deletions
diff --git a/testsuite/driver/extra_files.py b/testsuite/driver/extra_files.py index acf4802cba..f1dbcb50aa 100644 --- a/testsuite/driver/extra_files.py +++ b/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'], diff --git a/testsuite/tests/cabal/T12485/Main.hs b/testsuite/tests/cabal/T12485/Main.hs new file mode 100644 index 0000000000..3894abab95 --- /dev/null +++ b/testsuite/tests/cabal/T12485/Main.hs @@ -0,0 +1,2 @@ +module Main where +main = main diff --git a/testsuite/tests/cabal/T12485/Makefile b/testsuite/tests/cabal/T12485/Makefile new file mode 100644 index 0000000000..fc8e9929e6 --- /dev/null +++ b/testsuite/tests/cabal/T12485/Makefile @@ -0,0 +1,14 @@ +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 diff --git a/testsuite/tests/cabal/T12485/T12485.stdout b/testsuite/tests/cabal/T12485/T12485.stdout new file mode 100644 index 0000000000..aefbf389b1 --- /dev/null +++ b/testsuite/tests/cabal/T12485/T12485.stdout @@ -0,0 +1,6 @@ +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 ... diff --git a/testsuite/tests/cabal/T12485/a.pkg b/testsuite/tests/cabal/T12485/a.pkg new file mode 100644 index 0000000000..fdf9bf6160 --- /dev/null +++ b/testsuite/tests/cabal/T12485/a.pkg @@ -0,0 +1,6 @@ +name: a +version: 1 +id: a-1-XXX +key: a-1-XXX +abi: aaa +depends: diff --git a/testsuite/tests/cabal/T12485/all.T b/testsuite/tests/cabal/T12485/all.T new file mode 100644 index 0000000000..63f6d6a1ef --- /dev/null +++ b/testsuite/tests/cabal/T12485/all.T @@ -0,0 +1,5 @@ +test('T12485', + [extra_clean(['a.db', 'b.db', 'Main.o', 'Main', 'Main.hi']), + expect_broken(12485)], + run_command, + ['$MAKE -s --no-print-directory T12485']) diff --git a/testsuite/tests/cabal/T12485/b.pkg b/testsuite/tests/cabal/T12485/b.pkg new file mode 100644 index 0000000000..f9ad852ce2 --- /dev/null +++ b/testsuite/tests/cabal/T12485/b.pkg @@ -0,0 +1,5 @@ +name: b +version: 1 +id: b-1-XXX +key: b-1-XXX +depends: a-1-XXX |