diff options
| author | pepe iborra <mnislaih@gmail.com> | 2009-04-19 12:16:51 +0000 |
|---|---|---|
| committer | pepe iborra <mnislaih@gmail.com> | 2009-04-19 12:16:51 +0000 |
| commit | 78d4de715e20ce259b87f1cf14e3967ecfef6efb (patch) | |
| tree | 6381e24c485ce74d123927ac8ab5c73be552f7ac /testsuite/tests/ghc-regress | |
| parent | b3c97960d9a449b79058ec4fe3fe111a1b89458c (diff) | |
| download | haskell-78d4de715e20ce259b87f1cf14e3967ecfef6efb.tar.gz | |
Make test print022 a bit stronger
Diffstat (limited to 'testsuite/tests/ghc-regress')
3 files changed, 20 insertions, 0 deletions
diff --git a/testsuite/tests/ghc-regress/ghci.debugger/scripts/print022.hs b/testsuite/tests/ghc-regress/ghci.debugger/scripts/print022.hs index 2c60875336..fed9fc0b43 100644 --- a/testsuite/tests/ghc-regress/ghci.debugger/scripts/print022.hs +++ b/testsuite/tests/ghc-regress/ghci.debugger/scripts/print022.hs @@ -2,3 +2,10 @@ import GHC.Exts data T = C Int# Word# Float# Double# Char# Int Float Double test = C 1# 32## 1.2# 1.23## 'x'# 1 1.2 1.23 + +data TwoFields = TwoFields Char Int deriving Show + +data T2 = C2 {-# UNPACK #-} !Int {-#UNPACK#-} !Word {-# UNPACK #-} !TwoFields deriving Show +test2 = C2 1 32 (TwoFields 'a' 3) + +f x = x
\ No newline at end of file diff --git a/testsuite/tests/ghc-regress/ghci.debugger/scripts/print022.script b/testsuite/tests/ghc-regress/ghci.debugger/scripts/print022.script index 9f776cb45b..cfed80380e 100644 --- a/testsuite/tests/ghc-regress/ghci.debugger/scripts/print022.script +++ b/testsuite/tests/ghc-regress/ghci.debugger/scripts/print022.script @@ -2,3 +2,8 @@ :l print022.hs seq test () :print test +:break f +f test2 +:step +:fo x +:t x
\ No newline at end of file diff --git a/testsuite/tests/ghc-regress/ghci.debugger/scripts/print022.stdout b/testsuite/tests/ghc-regress/ghci.debugger/scripts/print022.stdout index a3970a68a6..cc23f97c3a 100644 --- a/testsuite/tests/ghc-regress/ghci.debugger/scripts/print022.stdout +++ b/testsuite/tests/ghc-regress/ghci.debugger/scripts/print022.stdout @@ -1,2 +1,10 @@ () test = C 1 32 1.2 1.23 'x' 1 1.2 1.23 +Breakpoint 0 activated at print022.hs:11:0-6 +Stopped at print022.hs:11:0-6 +_result :: t = _ +Stopped at print022.hs:11:6 +_result :: t = _ +x :: t = _ +x = C2 1 32 'a' 3 +x :: T2 |