Make test print022 a bit stronger

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

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

testsuite/tests/ghc-regress/ghci.debugger/scripts/print022.stdout

 ()
 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