fix parsing of RecordExpressions

3 files changed, 17 insertions, 0 deletions

diff --git a/test/interpreter.spec.ts b/test/interpreter.spec.ts
index 6d3189a..acca7bb 100644
--- a/test/interpreter.spec.ts
+++ b/test/interpreter.spec.ts
@@ -45,3 +45,10 @@ test('Application of identity function', async () => {
   const result = await evaluate(ast, testingLogger);
   expect(result).toEqual({ type: 'int', value: 3 });
 });
+
+test('Record construction', async () => {
+  const ast = peggyParse(await TestPrograms.RecordConstruction);
+
+  const result = await evaluate(ast, testingLogger);
+  expect(result).toEqual({ type: 'int', value: 3 });
+});
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