Mercurial > projects > ldc

comparison runalltests.d @ 38:27b2f40bdb58 trunk

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r42] Disabled the extensive logging by default. Use the -vv flag to get it back. Fiddled a bit the the testing system. Added a very simple SDL graphics demo.
author lindquist
date Wed, 10 Oct 2007 06:16:48 +0200
parents 0e86428ee567
children 0b9b286b67b6
comparison
equal deleted inserted replaced
37:77cdca8c210f 38:27b2f40bdb58
7 7
8 int main(string[] args) { 8 int main(string[] args) {
9 string[] bad; 9 string[] bad;
10 string[] badrun; 10 string[] badrun;
11 11
12 auto contents = listdir("test", "*.d"); 12 chdir("test");
13
14 auto contents = listdir(".", "*.d");
13 foreach(c; contents) { 15 foreach(c; contents) {
14 auto cmd = "./tester.sh "~getName(c); 16 auto cmd = "llvmdc -quiet "~c;
15 if (system(cmd~" ll") != 0) { 17 writefln(cmd);
18 if (system(cmd) != 0) {
16 bad ~= c; 19 bad ~= c;
17 } 20 }
18 else if (system(cmd~" run") != 0) { 21 else if (system(getName(c)) != 0) {
19 badrun ~= c; 22 badrun ~= c;
20 } 23 }
21 } 24 }
22 25
23 int ret = 0; 26 int ret = 0;
24 if (bad.length > 0 || badrun.length > 0) { 27 if (bad.length > 0 || badrun.length > 0) {
25 writefln(bad.length, '/', contents.length, " tests failed to compile:"); 28 writefln(bad.length, '/', contents.length, " of the tests failed to compile:");
26 foreach(b; bad) { 29 foreach(b; bad) {
27 writefln(" ",b); 30 writefln(" ",b);
28 } 31 }
29 writefln(badrun.length, '/', contents.length, " tests failed to run:"); 32 writefln(badrun.length, '/', contents.length - bad.length, " of the compiled tests failed to run:");
30 foreach(b; badrun) { 33 foreach(b; badrun) {
31 writefln(" ",b); 34 writefln(" ",b);
32 } 35 }
33 ret = 1; 36 ret = 1;
34 } 37 }
35 38
36 writefln(contents.length - bad.length - badrun.length, '/', contents.length, " tests passed"); 39 writefln(contents.length - bad.length - badrun.length, '/', contents.length, " of the tests passed");
37 return ret; 40 return ret;
38 } 41 }
42