added new test functions for net functionality to implement

diff --git a/cerise/tests/Module.m b/cerise/tests/Module.m
index f466d8953c81560bf95fbc7fb0813bd2020ba26a..7a2a731572b3dd287c1719e624cd5dd5709b1418 100644 (file)
--- 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);