diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-09-17 13:05:21 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-09-21 01:14:33 +0100 |
| commit | 30a698dc10b353118d9c6a20f9030b864689e5bc (patch) | |
| tree | 4b3668656de0992593d0d47c88203fc1704f705d | |
| parent | 0ce6b6c11c3df08edcc5a89190f56e5a4f2922e6 (diff) | |
| download | haskell-30a698dc10b353118d9c6a20f9030b864689e5bc.tar.gz | |
add test for a bug with :force
| -rw-r--r-- | testsuite/tests/ghci/scripts/ghci055.script | 7 | ||||
| -rw-r--r-- | testsuite/tests/ghci/scripts/ghci055.stdout | 3 |
2 files changed, 10 insertions, 0 deletions
diff --git a/testsuite/tests/ghci/scripts/ghci055.script b/testsuite/tests/ghci/scripts/ghci055.script new file mode 100644 index 0000000000..46a08a2bc3 --- /dev/null +++ b/testsuite/tests/ghci/scripts/ghci055.script @@ -0,0 +1,7 @@ +let x=undefined +let y=3 +:force x +:show bindings +-- in 7.3 and earlier this used to print just "*** Exception: +-- Prelude.undefined", now we see bindings for x and y, and x's value +-- is printed as the exception. diff --git a/testsuite/tests/ghci/scripts/ghci055.stdout b/testsuite/tests/ghci/scripts/ghci055.stdout new file mode 100644 index 0000000000..fa2acbec06 --- /dev/null +++ b/testsuite/tests/ghci/scripts/ghci055.stdout @@ -0,0 +1,3 @@ +*** Exception: Prelude.undefined +y :: Integer = _ +x :: a = *** Exception: Prelude.undefined |