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/,,',
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) {
foreach $badtest (@badtests) {
next testloop if $fullname =~ /$badtest/;
}
- print qq[\t\t\ttry \{ $test (); \} catch { }\n];
+# 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\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];
}