diff options
Diffstat (limited to 'testsuite/tests')
-rw-r--r-- | testsuite/tests/ghci/should_run/T18064.script | 2 | ||||
-rw-r--r-- | testsuite/tests/ghci/should_run/T18064.stderr | 2 | ||||
-rw-r--r-- | testsuite/tests/ghci/should_run/T18064.stdout | 1 | ||||
-rw-r--r-- | testsuite/tests/ghci/should_run/all.T | 9 |
4 files changed, 14 insertions, 0 deletions
diff --git a/testsuite/tests/ghci/should_run/T18064.script b/testsuite/tests/ghci/should_run/T18064.script new file mode 100644 index 0000000000..da98c8e8ac --- /dev/null +++ b/testsuite/tests/ghci/should_run/T18064.script @@ -0,0 +1,2 @@ +import GHCi.ObjLink +lookupClosure "blah" diff --git a/testsuite/tests/ghci/should_run/T18064.stderr b/testsuite/tests/ghci/should_run/T18064.stderr new file mode 100644 index 0000000000..8edd219551 --- /dev/null +++ b/testsuite/tests/ghci/should_run/T18064.stderr @@ -0,0 +1,2 @@ +<interactive>: ^^ Could not load 'blah', dependency unresolved. See top entry above. + diff --git a/testsuite/tests/ghci/should_run/T18064.stdout b/testsuite/tests/ghci/should_run/T18064.stdout new file mode 100644 index 0000000000..4a584e4989 --- /dev/null +++ b/testsuite/tests/ghci/should_run/T18064.stdout @@ -0,0 +1 @@ +Nothing diff --git a/testsuite/tests/ghci/should_run/all.T b/testsuite/tests/ghci/should_run/all.T index fa4c78cdce..8130d512d4 100644 --- a/testsuite/tests/ghci/should_run/all.T +++ b/testsuite/tests/ghci/should_run/all.T @@ -66,3 +66,12 @@ test('T16012', just_ghci, ghci_script, ['T16012.script']) test('T16096', just_ghci, ghci_script, ['T16096.script']) test('T507', just_ghci, ghci_script, ['T507.script']) test('T18027', just_ghci, ghci_script, ['T18027.script']) +test('T18064', + [just_ghci, + when(leading_underscore(),skip) + # we need to skip otherwise the test fails on platforms prepending leading + # underscores to symbols (we get "Could not load '_blah'" instead of "Could + # not load 'blah'). + ], + ghci_script, + ['T18064.script']) |