[commit: ghc] ghc-7.10: Test case for indirect dependencies in ghci linker (#10322) (eae1ac8)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : ghc-7.10
Link       : http://ghc.haskell.org/trac/ghc/changeset/eae1ac8b61714f2d50c3b47709a96ab7708329cb/ghc

>---------------------------------------------------------------

commit eae1ac8b61714f2d50c3b47709a96ab7708329cb
Author: Reid Barton <rwbarton at gmail.com>
Date:   Wed Apr 15 16:46:47 2015 -0400

    Test case for indirect dependencies in ghci linker (#10322)
    
    (cherry picked from commit 88b84063c11a48820011805a8341d95f7fcd59db)


>---------------------------------------------------------------

eae1ac8b61714f2d50c3b47709a96ab7708329cb
 testsuite/tests/ghci/scripts/T10322.script                   | 5 +++++
 testsuite/tests/ghci/scripts/{T8696.stdout => T10322.stdout} | 1 +
 testsuite/tests/ghci/scripts/{T10110A.hs => T10322A.hs}      | 2 +-
 testsuite/tests/ghci/scripts/T10322B.hs                      | 4 ++++
 testsuite/tests/ghci/scripts/T10322C.hs                      | 5 +++++
 testsuite/tests/ghci/scripts/all.T                           | 2 ++
 6 files changed, 18 insertions(+), 1 deletion(-)

diff --git a/testsuite/tests/ghci/scripts/T10322.script b/testsuite/tests/ghci/scripts/T10322.script
new file mode 100644
index 0000000..75f2a39
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/T10322.script
@@ -0,0 +1,5 @@
+:set -fobject-code
+:load T10322A T10322B T10322C
+T10322A.a
+T10322B.b
+T10322C.c
diff --git a/testsuite/tests/ghci/scripts/T8696.stdout b/testsuite/tests/ghci/scripts/T10322.stdout
similarity index 66%
copy from testsuite/tests/ghci/scripts/T8696.stdout
copy to testsuite/tests/ghci/scripts/T10322.stdout
index b944734..de9da6d 100644
--- a/testsuite/tests/ghci/scripts/T8696.stdout
+++ b/testsuite/tests/ghci/scripts/T10322.stdout
@@ -1,2 +1,3 @@
 3
 4
+7
diff --git a/testsuite/tests/ghci/scripts/T10110A.hs b/testsuite/tests/ghci/scripts/T10322A.hs
similarity index 57%
copy from testsuite/tests/ghci/scripts/T10110A.hs
copy to testsuite/tests/ghci/scripts/T10322A.hs
index 8482e7f..ba01fd2 100644
--- a/testsuite/tests/ghci/scripts/T10110A.hs
+++ b/testsuite/tests/ghci/scripts/T10322A.hs
@@ -1,4 +1,4 @@
-module T10110A (a) where
+module T10322A (a) where
 {-# NOINLINE a #-}
 a :: Int
 a = 3
diff --git a/testsuite/tests/ghci/scripts/T10322B.hs b/testsuite/tests/ghci/scripts/T10322B.hs
new file mode 100644
index 0000000..aa0b73a
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/T10322B.hs
@@ -0,0 +1,4 @@
+module T10322B (b) where
+import T10322A (a)
+b :: Int
+b = a+1
diff --git a/testsuite/tests/ghci/scripts/T10322C.hs b/testsuite/tests/ghci/scripts/T10322C.hs
new file mode 100644
index 0000000..b6ad6e9
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/T10322C.hs
@@ -0,0 +1,5 @@
+module T10322C (c) where
+import T10322A (a)
+import T10322B (b)
+c :: Int
+c = a+b
diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T
index 69c5254..631d6dc 100755
--- a/testsuite/tests/ghci/scripts/all.T
+++ b/testsuite/tests/ghci/scripts/all.T
@@ -209,3 +209,5 @@ test('T9878b',
 
 test('T10321', normal, ghci_script, ['T10321.script'])
 test('T10110', normal, ghci_script, ['T10110.script'])
+test('T10322', when(opsys('darwin'), expect_broken(10322)),
+    ghci_script, ['T10322.script'])