Mercurial > projects > ldc
view tests/runminitest.d @ 425:944d43f3779f
Fix the static array cast size check.
author | Christian Kamm <kamm incasoftware de> |
---|---|
date | Tue, 29 Jul 2008 12:44:28 +0200 |
parents | 94c4e090c1af |
children | ea991021a56a |
line wrap: on
line source
module runminitest; import std.file; import std.path; import std.process; import std.stdio; import std.string; int main(string[] args) { enum : int { COMPILE, NOCOMPILE, RUN, NORUN } string[] compilefailed; string[] nocompilefailed; string[] runfailed; string[] norunfailed; chdir("mini"); if (!exists("obj")) mkdir("obj"); foreach(f; listdir("./obj", "*")) { std.file.remove(f); } static int classify(char[] name) { if (find(name, "compile_") == 0) return COMPILE; else if (find(name, "nocompile_") == 0) return NOCOMPILE; else if (find(name, "run_") == 0) return RUN; else if (find(name, "norun_") == 0) return NORUN; return RUN; } auto contents = listdir(".", "*.d"); foreach(c; contents) { auto testname = getName(getBaseName(c)); writefln("TEST NAME: ", testname); string cmd = format("llvmdc %s -quiet -ofobj/%s -odobj", c, testname); foreach(v; args[1..$]) { cmd ~= ' '; cmd ~= v; } int cl = classify(testname); writefln(cmd); if (system(cmd) != 0) { if (cl != NOCOMPILE) compilefailed ~= c; } else if (cl == RUN || cl == NORUN) { if (system("obj/" ~ testname) != 0) { if (cl == RUN) runfailed ~= c; } else { if (cl == NORUN) norunfailed ~= c; } } else { if (cl == NOCOMPILE) nocompilefailed ~= c; } } size_t nerrors = 0; if (compilefailed.length > 0) { writefln(compilefailed.length, '/', contents.length, " of the tests failed to compile:"); foreach(b; compilefailed) { writefln(" ",b); } nerrors += compilefailed.length; } if (nocompilefailed.length > 0) { writefln(nocompilefailed.length, '/', contents.length, " of the tests failed to NOT compile:"); foreach(b; nocompilefailed) { writefln(" ",b); } nerrors += nocompilefailed.length; } if (runfailed.length > 0) { writefln(runfailed.length, '/', contents.length, " of the tests failed to run:"); foreach(b; runfailed) { writefln(" ",b); } nerrors += runfailed.length; } if (norunfailed.length > 0) { writefln(norunfailed.length, '/', contents.length, " of the tests failed to NOT run:"); foreach(b; norunfailed) { writefln(" ",b); } nerrors += norunfailed.length; } writefln(contents.length - nerrors, '/', contents.length, " of the tests passed"); return nerrors ? 1 : 0; }