From 04480663e808b27c4b2ce31dec7586fc226a9669 Mon Sep 17 00:00:00 2001
From: Jeremy Wall <jeremy@marzhillstudios.com>
Date: Sun, 30 Jun 2019 17:51:54 -0500
Subject: [PATCH] TESTS: Expresions as field values in lists and tuples.

---
 src/build/opcode/test.rs | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/src/build/opcode/test.rs b/src/build/opcode/test.rs
index c71f9b4..eaabbcb 100644
--- a/src/build/opcode/test.rs
+++ b/src/build/opcode/test.rs
@@ -93,6 +93,18 @@ fn test_list_ops() {
             vec![InitList, Val(Int(2)), Element, Val(Int(1)), Element],
             C(List(vec![P(Int(2)), P(Int(1))])),
         ),
+        (
+            vec![
+                InitList,
+                Val(Int(1)),
+                Element,
+                Val(Int(1)),
+                Val(Int(1)),
+                Add,
+                Element,
+            ],
+            C(List(vec![P(Int(1)), P(Int(2))])),
+        ),
     ];
     for case in cases.drain(0..) {
         let mut vm = VM::new(case.0);
@@ -143,6 +155,27 @@ fn test_tuple_ops() {
                 ("foo".to_owned(), P(Int(2))),
             ])),
         ),
+        (
+            vec![
+                InitTuple,
+                Sym("bar".to_owned()),
+                Val(Str("ux".to_owned())),
+                Val(Str("qu".to_owned())),
+                Add,
+                FIELD,
+                Val(Str("foo".to_owned())),
+                Val(Int(1)),
+                FIELD,
+                Cp,
+                Val(Str("foo".to_owned())),
+                Val(Int(2)),
+                FIELD,
+            ],
+            C(Tuple(vec![
+                ("bar".to_owned(), P(Str("quux".to_owned()))),
+                ("foo".to_owned(), P(Int(2))),
+            ])),
+        ),
     ];
     for case in cases.drain(0..) {
         let mut vm = VM::new(case.0);