#include <globals.h>

int main(string fun);

void recurse(string dir) {
    mixed leaks;
    
    foreach (string file in get_dir(dir + "*.c")) 
	main(dir + file);
    foreach (string subdir in map(filter(get_dir(dir + "*", -1),
					 (: $1[1] == -2 :)),
				  (: $1[0] :)) - ({ ".", ".." }))
	{
	    if (subdir == "fail") {
		foreach (string fn in get_dir(dir + "fail/*.c")) {
		    ASSERT2(catch(load_object(dir+"fail/"+fn)), "fail/" + fn + " loaded");
#if defined(__DEBUGMALLOC_EXTENSIONS__) && defined(__CHECK_MEMORY__)
		    leaks = check_memory();
		    if (sizeof(filter(explode(leaks, "\n"), (: $1 && $1[0] :))) != 1) {
			write("After trying to compile: " + dir + "fail/" + fn + "\n");
			write(leaks);
			error("LEAK\n");
		    }
#endif
		}
		rm("/log/compile");
	    } else
		recurse(dir + subdir + "/");
	}	
}

int
main(string fun)
{
    string leaks;
    object tp = this_player();
    
    if (!fun || fun == "") {
	recurse("/single/tests/");
	write("Checks succeeded.\n");
	return 1;
    }
    fun->do_tests();
    if (tp != this_player())
	error("Bad this_player() after calling " + fun + "\n");
#if defined(__DEBUGMALLOC_EXTENSIONS__) && defined(__CHECK_MEMORY__)
    leaks = check_memory();
    if (sizeof(filter(explode(leaks, "\n"), (: $1 && $1[0] :))) != 1) {
	write("After calling: " + fun + "\n");
	write(leaks);
	error("LEAK\n");
    }
#endif
    return 1;
}