diff options
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 |