From 872ab5e505d055539a2baf51035341580422e32c Mon Sep 17 00:00:00 2001
From: "Michael D. Lowis" <mike@mdlowis.com>
Date: Wed, 6 Jul 2022 07:49:16 -0400
Subject: [PATCH] added new test functions for net functionality to implement

---
 cerise/tests/Module.m | 78 ++++++-------------------------------------
 1 file changed, 10 insertions(+), 68 deletions(-)

diff --git a/cerise/tests/Module.m b/cerise/tests/Module.m
index f466d89..7a2a731 100644
--- a/cerise/tests/Module.m
+++ b/cerise/tests/Module.m
@@ -144,6 +144,16 @@ begin
   end
 end
 
+procedure TestArrayAccess()
+begin
+    vIntArray[0] = vIntArray[1] + vIntArray[2];
+end
+
+procedure TestRecordAccess()
+begin
+end
+
+
 #import
 #  Foo
 #  Bar3 = Bar2
@@ -216,77 +226,9 @@ end
 ##end
 #
 begin
-##  b = 1;
-##  if c == b then
-##    b = b - 1;
-##    b = b - 1;
-## else
-##    b = b + 1;
-##    b = b + 1;
-## end
-## b = 4;
-## b = 5;
-#
-##  b = 42;
-##  b = -b;
-##  c = b + 1;
-##
-##  if c == b then
-##    c = 42;
-##  else
-##    c = 24;
-##  end
-##
-##  if c == b then
-##    b = 42;
-##  else
-##    b = 24;
-##  end
-#
-##    h[1].i = 42;
-##  a = true;
-##  a = A;
-##  b = 24;
-##  b = B;
-#
 ##  # Unary ops
 ##  b = +b;
 ##  b = -b;
-#
-##
-##
-##  c = b + b;
-##
-##  # Complex arithmetic
-##  c = b + b * b + b;
-##
-##
-##  # If statements
-##  if 1 == 1 then
-##    c = 1;
-##  end
-##
-##  if 1 == 1 then
-##    c = 1;
-##  else
-##    c = 1;
-##  end
-##
-##  if 1 == 1 then
-##    c = 1;
-##  elsif 2 == 2 then
-##    c = 1;
-##  end
-##
-##  if 1 == 1 then
-##    c = 1;
-##  elsif 2 == 2 then
-##    c = 2;
-##  elsif 2 == 2 then
-##    c = 2;
-##  else
-##    c = 3;
-##  end
 ##
 ##  # Function calls
 ##  c = Foo(1,2);
-- 
2.49.0