2 files changed, 10 insertions, 0 deletions
diff --git a/test/programs/index.ts b/test/programs/index.ts
index fae3b59..71ae303 100644
--- a/test/programs/index.ts
+++ b/test/programs/index.ts
@@ -19,4 +19,7 @@ export namespace TestPrograms {
   export const Application = Bun.file(
     join(import.meta.dir, 'application.cps'),
   ).text();
+  export const RecordConstruction = Bun.file(
+    join(import.meta.dir, 'record.cps'),
+  ).text();
 }
diff --git a/test/programs/record.cps b/test/programs/record.cps
new file mode 100644
index 0000000..fe82668
--- /dev/null
+++ b/test/programs/record.cps
@@ -0,0 +1,7 @@
+RECORD([(INT 1, OFFp 0), (INT 2, OFFp 0)], record,
+  SELECT(0, VAR one, record,
+    SELECT(1, VAR two, record,
+      PRIMOP(+, [VAR one, VAR two], [result], [])
+    )
+  )
+)
+\ No newline at end of file