Add test for #239

Tests UNPACKed fields with record labels are not broken

Author: alt-romes

test/golden/T239/Main.hs

@@ -0,0 +1,28 @@
+{-# OPTIONS_GHC -O -fno-unoptimized-core-for-interpreter #-}
+{-# LANGUAGE BangPatterns #-}
+
+module Main where
+
+data Packed = Packed -- Unpacking only happens with optimizations, hence the -O.
+  { packedLeft :: {-# UNPACK #-} !Char
+  , packedRight :: {-# UNPACK #-} !Char
+  }
+  deriving Show
+
+data Container = Container
+  { containerBefore :: Int
+  , containerPacked :: {-# UNPACK #-} !Packed
+  , containerPacked2 :: {-# UNPACK #-} !Packed
+  , containerAfter :: Int
+  }
+  deriving Show
+
+mkContainer :: Container
+mkContainer = Container 10 (Packed 'a' 'b') (Packed 'c' 'd') 40
+{-# OPAQUE mkContainer #-}
+
+main :: IO ()
+main = do
+  let !container = mkContainer
+  const (pure ()) container
+  print container

test/golden/T239/T239.fails-239.ghc-914.hdb-stdout

@@ -0,0 +1,11 @@
+[1 of 3] Compiling GHC.Debugger.View.Class ( in-memory:GHC.Debugger.View.Class, interpreted )[haskell-debugger-view-in-memory]
+[2 of 3] Compiling Main             ( <TEMPORARY-DIRECTORY>/Main.hs, interpreted )[main]
+(hdb) BreakFound {changed = True, breakId = [InternalBreakpointId Main 2], sourceSpan = SourceSpan {file = "<TEMPORARY-DIRECTORY>/Main.hs", startLine = 27, endLine = 27, startCol = 3, endCol = 28}}
+(hdb) Stopped at breakpoint
+(hdb) _result : IO () = <fn> :: IO ()
+container : Container = Container
+  containerBefore : Int = _
+  containerPacked : Packed = Packed
+  containerPacked2 : Packed = Packed
+  containerAfter : Int = _
+(hdb) (hdb) Exiting...

test/golden/T239/T239.fails-239.hdb-test

@@ -0,0 +1 @@
+$HDB Main.hs -v 0 < T239.hdb-stdin

test/golden/T239/T239.hdb-stdin

@@ -0,0 +1,4 @@
+break Main.hs 27
+run
+variables
+exit