X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=mcs%2Ftools%2Fscan-tests.pl;h=5cb0f8625f5a1a55c58b320bd1a79ebb14b8edf1;hb=dac1a705ea8721eeff8b2a91da1747d04706f0bb;hp=c9b6569ad7d583db2ae917e5d2d7bc561f716c5b;hpb=b3502a95c95b0382f2d93a30117cd2de2f620261;p=mono.git

diff --git a/mcs/tools/scan-tests.pl b/mcs/tools/scan-tests.pl
index c9b6569ad7d..5cb0f8625f5 100755
--- 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 @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/,,',
@@ -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[\t\t\tbool errorThrown = false;\n\n];
     my $test;
   testloop:
     foreach $test (@tests) {
@@ -116,8 +117,15 @@ foreach $alltest (@allfiles) {
 	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];
 }