Split unit tests.

Remove expr.c and add string.c and command.c.

src/test.ml

@@ -58,20 +58,22 @@ let test_cases = "Batsh Unit Tests" >::: [
     "[Bash]Arith"         >:: test "arith" test_bash;
     "[Bash]Assignment"    >:: test "assignment" test_bash;
     "[Bash]Array"         >:: test "array" test_bash;
-    "[Bash]Expressions"   >:: test "expr" test_bash;
+    "[Bash]String"        >:: test "string" test_bash;
     "[Bash]If"            >:: test "if" test_bash;
     "[Bash]While"         >:: test "while" test_bash;
     "[Bash]Function"      >:: test "function" test_bash;
     "[Bash]Recursion"     >:: test "recursion" test_bash;
+    "[Bash]Command"       >:: test "command" test_bash;
     "[Winbat]Block"       >:: test "block" test_winbat;
     "[Winbat]Arith"       >:: test "arith" test_winbat;
     "[Winbat]Assignment"  >:: test "assignment" test_winbat;
     (* "[Winbat]Array"       >:: test "array" test_winbat; *)
-    (* "[Winbat]Expressions" >:: test "expr" test_winbat; *)
+    "[Winbat]String"      >:: test "string" test_winbat;
     "[Winbat]If"          >:: test "if" test_winbat;
     "[Winbat]While"       >:: test "while" test_winbat;
     "[Winbat]Function"    >:: test "function" test_winbat;
     "[Winbat]Recursion"   >:: test "recursion" test_winbat;
+    (* "[Winbat]Command"     >:: test "command" test_winbat; *)
   ]
 
 let _ =

tests/array.c

@@ -3,3 +3,9 @@ a[0] = 2 * 9;
 a[2] = "abx";
 a[5] = "5" ++ a[0];
 println(a[0], a[1], a[2], a[3], a[4], a[5]);
+a = [1, 2, 3];
+println(a[0], a[1], a[2]);
+println(("10" ++ a[0]) * 2);
+println(len(a));
+println(len(a) * 8);
+//println([1, 2, 3]);

tests/command.c

@@ -0,0 +1,4 @@
+call("println", "Println Called");
+cmd = "ec" ++ "ho";
+call(cmd, "Echo Called");
+println(expr(36, "+", 6));

tests/output/array.txt

@@ -1 +1,5 @@
 18 y abx 1 518
+1 2 3
+202
+3
+24

tests/output/command.txt

@@ -0,0 +1,3 @@
+Println Called
+Echo Called
+42

tests/output/string.txt

@@ -0,0 +1,11 @@
+BYVoid
+Slash/
+Backslash\
+Quote"'
+Tab	Tab
+http://www.byvoid.com
+3BYVoid8
+6
+62
+35
+1

tests/string.c

@@ -0,0 +1,13 @@
+println("BYVoid");
+println("Slash/");
+println("Backslash\\");
+println("Quote\"'");
+println("Tab\tTab");
+//println("Newline\nLine2");
+//println("!");
+println("http://" ++ "www." ++ ("byvoid" ++ ".com"));
+println(6 / 2 ++ "BYVoid" ++ 3 + 5);
+println(3 + "3");
+println(3 + "3" ++ "2");
+println(3 + ("3" ++ "2"));
+println("BYVoid" == "BYVoid");