Made a test_runner in Kraken to run the tests on Kalypso, and moved to_import.krak to simple_print.krak and ported one function over to use it instead, so that Kalypso testing can get started before implementing everything needed to use io.krak

tests/new_runner.sh

@@ -1,6 +1,6 @@
 #!/bin/bash
 
-krakenPath="../build-ninja/kraken"
+runner_path="./test_runner/test_runner"
 #testDir=${1:-"../tests"}
 testDir="."
 ext=${2:-"krak"}
@@ -12,4 +12,4 @@ for dir in `find ${testDir} -type f -name "test_*.${ext}"`; do
 	fileList+=\ $testDir\/$filename
 done
 
-${krakenPath} "--test" ${fileList}
+${runner_path} "--test" ${fileList}

tests/simple_print.krak

@@ -0,0 +1,20 @@
+
+fun println(to_print: *char) {
+    print(to_print)
+    print("\n")
+}
+fun println(to_print: int) {
+    print(to_print)
+    print("\n")
+}
+fun print(to_print: *char) {
+    __if_comp__ __C__ simple_passthrough(to_print::) """
+        printf("%s", to_print);
+    """
+}
+fun print(to_print: int) {
+    __if_comp__ __C__ simple_passthrough(to_print::) """
+        printf("%d", to_print);
+    """
+}
+

tests/test_compiler.krak

@@ -10,7 +10,7 @@ import serialize:*
 import c_generator:*
 import os:*
 
-fun main():int {
+fun main(argc: int, argv: **char):int {
 
     /*var gram.construct(): grammer*/
     // delay construction until we either load it or copy construct it
@@ -62,6 +62,8 @@ fun main():int {
     }
 
     var kraken_file_name = string("to_parse.krak")
+    if (argc > 1)
+        kraken_file_name = string(argv[1])
     var parse.construct(gram): parser
     var ast_pass.construct(): ast_transformation
     var importer.construct(parse, ast_pass): importer

tests/test_runner.krak

@@ -0,0 +1,47 @@
+import string:*
+import io:*
+import os:*
+
+fun error(message: *char) {
+    println("ERROR:")
+    println(message)
+}
+
+fun main(argc: int, argv: **char): int {
+    var kraken_path = string("./test_compiler/test_compiler")
+    var all_results = string()
+    var num_passed = 0
+    var name_length = 0
+    // first iterate and get the length of the longest line
+    for (var i = 1; i < argc; i++;) {
+        var name = string(argv[i])
+        if (name.length() > name_length)
+            name_length = name.length()
+    }
+    var pad_with_spaces = fun(name: string): string {
+        while (name.length() < name_length) name += " "
+        return name
+    }
+    for (var i = 1; i < argc; i++;) {
+        var test_name = string(argv[i])
+        println(string("Doing test for ") + test_name)
+        if (system(kraken_path + " " + test_name + ".krak")) error("could not compile")
+        var results_file_name = test_name + ".results"
+        var expected_results_file_name = test_name + ".expected_results"
+        if (system(string("./") + test_name + ".krak.exe > " + results_file_name)) error("could not run")
+        if (read_file(results_file_name) == read_file(expected_results_file_name)) {
+            println(test_name + "\tPASSED!")
+            all_results += pad_with_spaces(test_name) + "\tPASSED!\n"
+            num_passed++
+            system(string("rm ./") + results_file_name)
+        } else {
+            println(test_name + "\tFAILED!")
+            all_results += pad_with_spaces(test_name) + "\tFAILED!\n"
+        }
+        system(string("rm ./") + test_name + ".krak.*")
+    }
+    println(string("\n\nTEST RESULTS: ") + num_passed + "/" + (argc-1))
+    println(all_results)
+    return 0
+}
+

tests/test_simpleFunctionTest.krak

@@ -1,4 +1,4 @@
-import io:*;
+import simple_print:*
 
 fun addAndPrintInt(a: int, b: int): int {
 	print(a+b);

tests/to_import.krak

@@ -1,27 +0,0 @@
-
-fun simple_println(to_print: *char) {
-    simple_print(to_print)
-    simple_print("\n")
-}
-fun simple_println(to_print: int) {
-    simple_print(to_print)
-    simple_print("\n")
-}
-fun simple_print(to_print: *char) {
-    __if_comp__ __C__ simple_passthrough(to_print::) """
-        printf("%s", to_print);
-    """
-}
-fun simple_print(to_print: int) {
-    __if_comp__ __C__ simple_passthrough(to_print::) """
-        printf("%d", to_print);
-    """
-}
-fun string_id(it: *char): *char {
-    return it;
-}
-var a = 1
-var b:int
-
-
-

tests/to_parse.krak

@@ -1,4 +1,4 @@
-import to_import: simple_print, simple_println, a, b, string_id
+import simple_print: *
 /*
 fun something(param: int): Something {
     var to_ret.construct_with_param(param): Something
@@ -7,22 +7,22 @@ fun something(param: int): Something {
 obj Something (ObjectTrait) {
     var member: int
     fun construct(): *Something {
-        simple_println("Constructing a Something")
+        println("Constructing a Something")
         member = 1337
         return this
     }
     fun construct_with_param(param: int): *Something {
-        simple_println("Constructing a Something with a param")
+        println("Constructing a Something with a param")
         member = param
         return this
     }
     fun copy_construct(old: *Something) {
-        simple_println("Copy Constructing a Something")
+        println("Copy Constructing a Something")
         member = old->member
     }
     fun destruct() {
-        simple_print("Destructing a Something: ")
-        simple_println(member)
+        print("Destructing a Something: ")
+        println(member)
     }
     fun method(a: int):int {
         return 5+a+member + other_method()
@@ -42,7 +42,7 @@ fun id<T>(in: T): T return in;
 fun other_id<T>(in: T): T {
     var a: T
     a = in
-    simple_println(id<T>(in))
+    println(id<T>(in))
     return in;
 }
 /*
@@ -53,87 +53,87 @@ fun some_other_function(in: bool): float {
 */
 fun main(): int {
     var a = id<int>(7)
-    simple_println(a)
+    println(a)
     var b = id<int>(8)
     /*var b = id<*char>("Double down time")*/
-    /*simple_println(b)*/
-    simple_println(id<char>("Double down time"))
-    simple_println(other_id<*char>("Triple down time"))
+    /*println(b)*/
+    println(id<char>("Double down time"))
+    println(other_id<*char>("Triple down time"))
 
 
 
     /*var test_methods = something(77)*/
     /*var test_methods_param.construct_with_param(10090): Something*/
-    /*simple_println("Constructing an object and printint its member, copy-constructing it, and printing that out, then letting both be destructed")*/
-    /*simple_println(test_methods.member)*/
-    /*simple_println(test_methods_param.member)*/
+    /*println("Constructing an object and printint its member, copy-constructing it, and printing that out, then letting both be destructed")*/
+    /*println(test_methods.member)*/
+    /*println(test_methods_param.member)*/
     /*var second_obj = test_methods*/
     /*second_obj.member += 5*/
-    /*simple_println(second_obj.member)*/
+    /*println(second_obj.member)*/
     /*[>var some = return_something_p_1(second_obj)<]*/
-    /*simple_println(return_something_p_1(second_obj).member)*/
+    /*println(return_something_p_1(second_obj).member)*/
     return 0
     /*
     var a_declaration:int
-    simple_print(1 + 2)
+    print(1 + 2)
     var again = 2 + 4 - 1 * 400
-    simple_print(again)
+    print(again)
     again = 2 + (4 - 1) * 400
-    simple_print(again)
+    print(again)
     var another_declaration: int = 8.0
-    simple_print(another_declaration)
+    print(another_declaration)
     var yet_another_declaration = "Hello Marcus\n"
-    simple_print(yet_another_declaration)
-    simple_print("Hello World!\n")
-    simple_print(1337)
-    if (1 + 2 && false) simple_print("its true!")
-    else simple_print("its false!")
+    print(yet_another_declaration)
+    print("Hello World!\n")
+    print(1337)
+    if (1 + 2 && false) print("its true!")
+    else print("its false!")
     var counter = 10
     counter--
     --counter
-    while (counter) simple_print(counter--)
-    simple_print("\n")
+    while (counter) print(counter--)
+    print("\n")
     counter = 8
     while (counter) {
-        simple_print(--counter)
+        print(--counter)
         if (counter == 2)
             break
     }
-    simple_print("\n")
+    print("\n")
     for (var j = 0; j < 10; j++;)
         if (j%2) continue
-        else simple_print(j)
+        else print(j)
     var an_obj: Something
     an_obj.member = 20
-    simple_print(an_obj.member)
-    simple_print("here is thing")
-    simple_print(123)
-    simple_print("\n")
-    simple_print(an_obj.method(1))
-    simple_print("\n")
-    simple_print(string_id("WoooopsEee\n"))
+    print(an_obj.member)
+    print("here is thing")
+    print(123)
+    print("\n")
+    print(an_obj.method(1))
+    print("\n")
+    print(string_id("WoooopsEee\n"))
     var with_ptr = an_obj.return_this()
-    simple_print(with_ptr->method(2))
-    simple_print("\n")
+    print(with_ptr->method(2))
+    print("\n")
     {
-        defer simple_print("should_be_third\n")
-        defer simple_print("should_be_second\n")
-        simple_print("should be first\n")
+        defer print("should_be_third\n")
+        defer print("should_be_second\n")
+        print("should be first\n")
     }
     for (var i = 1; i < 10; i++;) {
-        defer simple_println("OUTER:happens every time, even when breaking or continueing")
+        defer println("OUTER:happens every time, even when breaking or continueing")
         {
-            defer simple_println("INNER:happens every time, even when breaking or continueing")
+            defer println("INNER:happens every time, even when breaking or continueing")
             if (i % 2 == 0)
                 continue
             if (i == 9)
                 break
-            simple_println(i)
+            println(i)
         }
     }
-    defer simple_println("Here is a return defer outer")
+    defer println("Here is a return defer outer")
     {
-        defer simple_println("Here is a return defer inner")
+        defer println("Here is a return defer inner")
         return 0
     }
     */