From 06549741aa5139ba9f85c33a21f2ed672e1e094f Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Thu, 7 Mar 2024 12:21:39 -0500
Subject: [PATCH] Tweaking array tests

---
 test/arrays.tm | 77 ++++++++++++++++++++++++++++++++------------------
 1 file changed, 49 insertions(+), 28 deletions(-)

diff --git a/test/arrays.tm b/test/arrays.tm
index 8e30868..376dd6a 100644
--- a/test/arrays.tm
+++ b/test/arrays.tm
@@ -1,36 +1,57 @@
->> [:Num32]
-= [] : [Num32]
+if yes
+	>> [:Num32]
+	= [] : [Num32]
 
->> arr := [10, 20, 30]
-= [10, 20, 30]
+if yes
+	>> arr := [10, 20, 30]
+	= [10, 20, 30]
 
->> arr[1]
-= 10
->> arr[-1]
-= 30
+	>> arr[1]
+	= 10
+	>> arr[-1]
+	= 30
 
->> #arr
-= 3
+	>> #arr
+	= 3
 
-sum := 0
-for x in arr
-	sum += x
->> sum
-= 60
+	sum := 0
+	for x in arr
+		sum += x
+	>> sum
+	= 60
 
-str := ""
-for i,x in arr
-	str ++= "({i},{x})"
->> str
-= "(1,10)(2,20)(3,30)"
+	str := ""
+	for i,x in arr
+		str ++= "({i},{x})"
+	>> str
+	= "(1,10)(2,20)(3,30)"
 
->> arr2 := [10, 20] ++ [30, 40]
-= [10, 20, 30, 40]
+if yes
+	>> arr := [10, 20] ++ [30, 40]
+	= [10, 20, 30, 40]
 
->> arr2 ++= [50, 60]
->> arr2
-= [10, 20, 30, 40, 50, 60]
+	>> arr ++= [50, 60]
+	>> arr
+	= [10, 20, 30, 40, 50, 60]
 
->> arr2 ++= 70
->> arr2
-= [10, 20, 30, 40, 50, 60, 70]
+	>> arr ++= 70
+	>> arr
+	= [10, 20, 30, 40, 50, 60, 70]
+
+if yes
+	>> arr := [10, 20]
+	>> copy := arr
+	>> arr ++= 30
+	>> arr
+	= [10, 20, 30]
+	>> copy
+	= [10, 20]
+
+// if yes
+// 	>> arr := @[10, 20]
+// 	>> copy := arr[]
+// 	>> arr:insert(30)
+// 	>> arr
+// 	= @[10, 20, 30]
+// 	>> copy
+// 	= [10, 20]