Restructure test system

bootstrap/main.c

@@ -229,6 +229,18 @@ fn String string_base(String string)
     return result;
 }
 
+fn String string_no_extension(String string)
+{
+    String result = {};
+    auto index = string_last_ch(string, '.');
+    if (index != -1)
+    {
+        result = s_get_slice(u8, string, 0, index);
+    }
+
+    return result;
+}
+
 fn u64 parse_decimal(String string)
 {
     u64 value = 0;
@@ -4618,8 +4630,10 @@ fn void unit_tests()
 }
 #endif
 
+Slice(String) arguments;
+
 #if LINK_LIBC
-int main()
+int main(int argc, const char* argv[])
 #else
 extern "C" void entry_point()
 #endif
@@ -4627,20 +4641,40 @@ extern "C" void entry_point()
 #if DO_UNIT_TESTS
     unit_tests();
 #endif
+
+    if (argc < 2)
+    {
+        fail();
+    }
+
     Arena* global_arena = arena_init_default(KB(64));
+    {
+        arguments.pointer = arena_allocate(global_arena, String, argc);
+        arguments.length = argc;
+
+        for (u32 i = 0; i < argc; i += 1)
+        {
+            u64 len = strlen(argv[i]);
+            arguments.pointer[i] = (String) {
+                .pointer = (u8*)argv[i],
+                .length = len,
+            };
+        }
+    }
+
+    String source_file_path = arguments.pointer[1];
+
     Thread* thread = arena_allocate(global_arena, Thread, 1);
     thread_init(thread);
 
     mkdir("nest", 0755);
 
-    for (u32 i = 0; i < array_length(test_files); i += 1)
-    {
     File file = {
-            .path = test_files[i],
-            .source = file_read(thread->arena, test_files[i]),
+        .path = source_file_path,
+        .source = file_read(thread->arena, source_file_path),
     };
     analyze_file(thread, &file);
-        auto test_dir = string_dir(file.path);
+    auto test_dir = string_no_extension(file.path);
     auto test_name = string_base(test_dir);
 
     for (u32 function_i = 0; function_i < thread->buffer.functions.length; function_i += 1)
@@ -4678,5 +4712,4 @@ extern "C" void entry_point()
     system((char*)command.pointer);
 
     thread_clear(thread);
-    }
 }

debug.sh

@@ -2,15 +2,21 @@
 
 set -e
 
+path=$1
+echo $path
+
 source ./compile.sh
 build_dir="build"
 exe_name="nest"
 exe_path=$build_dir/$exe_name
+debug_flags="-g"
+optimization_flags=""
+bootstrap_args="$path"
 
-compile $build_dir $exe_name "-g" "";
+compile $build_dir $exe_name $debug_flags $optimization_flags
 
 case "$OSTYPE" in
-    darwin*)  lldb $exe_path ;; 
-    linux*)   gf2 -ex r $exe_path ;;
+    darwin*)  lldb -- $exe_path $bootstrap_args;; 
+    linux*)   gf2 -ex r --args $exe_path $bootstrap_args;;
     *)        echo "unknown: $OSTYPE" ;;
 esac

run_tests.sh

@@ -5,6 +5,21 @@ source ./compile.sh
 build_dir="build"
 exe_name="nest"
 exe_path=$build_dir/$exe_name
+debug_flags="-g"
+optimization_flags=""
+test_names="first"
+
+compile $build_dir $exe_name $debug_flags $optimization_flags;
+
+printf "\n======================\n"
+printf "TESTS"
+printf "\n======================\n\n"
+for test_name in "${test_names[@]}"
+do
+    echo "$test_name..."
+    build/nest "tests/$test_name.nat"
+    echo "$test_name [COMPILATION] [OK]"
+    nest/$test_name
+    echo "$test_name [RUN] [OK]"
+done
 
-compile $build_dir $exe_name "-g" "";
-build/nest