diff --git a/testsuite/compiler/compute/record.gfs b/testsuite/compiler/compute/record.gfs
index 99368bf17..0aeef0def 100644
--- a/testsuite/compiler/compute/record.gfs
+++ b/testsuite/compiler/compute/record.gfs
@@ -1,2 +1,5 @@
 i -retain testsuite/compiler/compute/record.gfs
 cc hello
+cc {x="x"; y="y"}.x
+cc {x="x"; y="y"}.y
+cc <\r -> r.x : {x:Str; y:Str} -> Str>
diff --git a/testsuite/compiler/compute/record.gfs.gold b/testsuite/compiler/compute/record.gfs.gold
index 3580093b9..1c7dd595b 100644
--- a/testsuite/compiler/compute/record.gfs.gold
+++ b/testsuite/compiler/compute/record.gfs.gold
@@ -1 +1,4 @@
 "hello"
+"x"
+"y"
+\v0 -> v0.x