projects
/
mono.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add static, thansk mig
[mono.git]
/
mcs
/
tools
/
scan-tests.pl
diff --git
a/mcs/tools/scan-tests.pl
b/mcs/tools/scan-tests.pl
index f5c60b5dee65fac1d1b3003ff570af1f11ef7dd5..5cb0f8625f5a1a55c58b320bd1a79ebb14b8edf1 100755
(executable)
--- a/
mcs/tools/scan-tests.pl
+++ b/
mcs/tools/scan-tests.pl
@@
-6,7
+6,7
@@
use Carp;
my @allfiles;
my @badsuites = qw[System\.Collections/HashtableTest System\.Collections/StackTest System\.Collections\.Specialized\.BasicOperationsTest];
my @allfiles;
my @badsuites = qw[System\.Collections/HashtableTest System\.Collections/StackTest System\.Collections\.Specialized\.BasicOperationsTest];
-my @badtests = qw[PathTest:TestGetTempFileName XmlTextReaderTests:TestIsNameChar XmlTextReaderTests:TestIsFirstNameChar];
+my @badtests = qw[PathTest:TestGetTempFileName XmlTextReaderTests:TestIsNameChar XmlTextReaderTests:TestIsFirstNameChar
ByteTest:TestParse
];
my @mapfiles = ('s,^MonoTests\.(.*)/,$1/,',
's,^Ximian\.Mono\.Tests(.*)/,,',
's,^System\.Net/,,',
my @mapfiles = ('s,^MonoTests\.(.*)/,$1/,',
's,^Ximian\.Mono\.Tests(.*)/,,',
's,^System\.Net/,,',
@@
-106,6
+106,7
@@
foreach $alltest (@allfiles) {
print qq[namespace $namespace\n\{\n];
print qq[\tpublic class Run$suite : $suite\n\t\{\n];
print qq[\t\tprotected override void RunTest ()\n\t\t\{\n];
print qq[namespace $namespace\n\{\n];
print qq[\tpublic class Run$suite : $suite\n\t\{\n];
print qq[\t\tprotected override void RunTest ()\n\t\t\{\n];
+# print qq[\t\t\tbool errorThrown = false;\n\n];
my $test;
testloop:
foreach $test (@tests) {
my $test;
testloop:
foreach $test (@tests) {
@@
-116,8
+117,15
@@
foreach $alltest (@allfiles) {
foreach $badtest (@badtests) {
next testloop if $fullname =~ /$badtest/;
}
foreach $badtest (@badtests) {
next testloop if $fullname =~ /$badtest/;
}
+# print qq[\t\t\ttry \{\n\t\t\t\t$test ();\n\t\t\t\} catch \{\n];
+# print qq[\t\t\t\tConsole.WriteLine ("$namespace:$suite:$test failed");\n];
+# print qq[\t\t\t\terrorThrown = true;\n];
+# print qq[\t\t\t\}\n];
print qq[\t\t\t$test ();\n];
print qq[\t\t\t$test ();\n];
+# print qq[\t\t\tConsole.WriteLine ("$namespace:$suite:$test DONE");\n];
}
}
+ print qq[\n];
+# print qq[\t\t\tif (errorThrown)\n\t\t\t\tthrow new ArgumentException ();\n];
print qq[\t\t\}\n\t\}\n];
print qq[\}\n\n];
}
print qq[\t\t\}\n\t\}\n];
print qq[\}\n\n];
}