make push

Author: gek

featuretest.cbas

@@ -60,16 +60,18 @@ fn codegen test_loops:
     :after_for_111
     i64 i
     i64 j = 0
+    i64 k
     //if(1)
+    k = 0
     for(i = 0, i < 20; i++)
-        __builtin_puts("You should see this print! (for i = 0 to 3 inclusive, 4 times)");
+        k++;
         if(i == 3)
             j--;
             break
         end
         j++;
     end
-    if(i != 3 || j != (3-1))
+    if(i != 3 || j != (3-1) || k != 4)
         __builtin_puts("Failed Loop Test 1");
         char[50] buf
         __builtin_utoa(buf, i);
@@ -157,7 +159,6 @@ fn codegen test_loops:
         end
     end
     :out2
-    i64 k
     for(k = 0, k < i, k++)
         ;
     end
@@ -176,11 +177,68 @@ fn codegen test_loops:
 
 end
 
+fn codegen test_switch:
+    i64 i = 0
+    i64 j = 0
+    i64 k = 0
+    switch(1+2+3) l0 l1 l2 l3 l4 l5 l6 l7 l8 l9 l10;
+    
+    
+    
+    :l0 i = 1 goto l_last
+    :l1 i = 1 goto l_last
+    :l2 i = 1 goto l_last
+    :l3 i = 1 goto l_last
+    :l4 i = 1 goto l_last
+    :l5 i = 1 goto l_last
+    :l6 goto l_last
+    :l7 i = 1 goto l_last
+    :l8 i = 1 goto l_last
+    :l9 i = 1 goto l_last
+    :l10 i = 1 goto l_last
+    :l11 i = 1 goto l_last
+    :l12 i = 1 goto l_last
+    :l13 i = 1 goto l_last
+    :l14 i = 1 goto l_last
+    
+    :l_last
+    if(i != 0)
+        have_failed = 1;
+        __builtin_puts("Failed switch test")
+    end
+    
+    return
+end
+
+fn codegen test_writefile_readfile:
+    __builtin_open_ofile("test.out");
+    __builtin_emit("1234567890",11);
+    __builtin_close_ofile();
+    u64[1] len
+    len[0] = 0
+    
+    char* p = __builtin_read_file("test.out",len);
+    if(len[0] != 11 || p == 0)
+        __builtin_puts("Failed File I/O test - Could not read file.");
+        have_failed = 1;
+    end
+    if(p strneq "1234567890")
+        __builtin_puts("Failed File I/O test - File contents failure.");
+        have_failed = 1;
+    end
+    __builtin_free(p);
+end
+
 
 fn codegen codegen_main:
     __builtin_puts("TESTING BASIC ARITHMETIC");
     testmath();
+    __builtin_puts("TESTING LOOPS");
     test_loops();
+    __builtin_puts("TESTING SWITCH");
+    test_switch;
+    __builtin_puts("TESTING FILES");
+    test_writefile_readfile();
     if(!have_failed)
         __builtin_puts("Success!!!!");
     else