[gnome-js-common] Tests: Add test launcher.

[Tim Horton <hortont src gnome org>]

commit 1de445cc7ceb690a8a1b36247ba0a251b226f50f
Author: Tim Horton <hortont424 gmail com>
Date:   Wed May 27 04:08:32 2009 -0400

    Tests: Add test launcher.
    
    Runs all of the tests in the given directory (or ., if no directory is given). Use the global 'assert(bool)' function to perform assertions.
---
 tests/run-tests.c |   99 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 files changed, 99 insertions(+), 0 deletions(-)

diff --git a/tests/run-tests.c b/tests/run-tests.c
new file mode 100644
index 0000000..daf67fa
--- /dev/null
+++ b/tests/run-tests.c
@@ -0,0 +1,99 @@
+/*
+ * -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- 
+ */
+
+#include <glib.h>
+#include <seed.h>
+#include <stdlib.h>
+#include <stdio.h>
+
+SeedEngine * eng;
+
+SeedValue js_assert(SeedContext ctx,
+                    SeedObject function,
+                    SeedObject this_object,
+                    size_t argument_count,
+                    const SeedValue arguments[],
+                    SeedException * exception)
+{
+	if(!seed_value_to_boolean(ctx, arguments[0], NULL))
+		seed_make_exception(ctx, exception, "AssertionError", "Assertion failed");
+}
+
+void test_exec(gchar * filename)
+{
+	SeedObject global;
+	SeedScript * script;
+	SeedException e;
+	gchar * buffer;
+
+	g_file_get_contents(filename, &buffer, 0, 0);
+
+	if(!buffer)
+	{
+		g_critical("File %s not found!", filename);
+		exit(1);
+	}
+
+	if(*buffer == '#')
+	{
+		while(*buffer != '\n')
+			buffer++;
+		buffer++;
+	}
+
+	script = seed_make_script(eng->context, buffer, filename, 1);
+	global = seed_context_get_global_object(eng->context);
+	seed_importer_add_global(global, filename);
+	
+	seed_create_function(eng->context, "assert", js_assert, global);
+
+	seed_evaluate(eng->context, script, 0);
+	
+	if((e = seed_script_exception(script)))
+	{
+		g_critical("FAIL\n\t%s. %s in %s at line %d\n",
+			seed_exception_get_name (eng->context, e),
+			seed_exception_get_message (eng->context, e),
+			seed_exception_get_file (eng->context, e),
+			seed_exception_get_line (eng->context, e));
+		exit(1);
+	}
+
+	g_free(script);
+}
+
+void run_tests(gchar * tests_dir_name)
+{
+	GDir * tests_dir;
+	const gchar * test_name;
+	const gchar * test_path;
+	
+	tests_dir = g_dir_open(tests_dir_name, 0, NULL);
+	while((test_name = g_dir_read_name(tests_dir)) != NULL)
+	{
+		if(!g_str_has_suffix(test_name, ".js")) // TODO: casing problem
+			continue;
+		
+		test_path = g_build_filename(tests_dir_name, test_name, NULL);
+
+		test_exec((char*)test_path);
+		printf("%s... OK\n", test_path);
+	}
+	
+}
+
+int main(int argc, char ** argv)
+{
+	eng = seed_init(&argc, &argv);
+	
+	if(argc == 1)
+		run_tests(".");
+	else if(argc == 2)
+		run_tests(argv[1]);
+	else
+		printf("Doin' it wrong.\n");
+	
+	return 0;
+}
+