164 lines
4.6 KiB
Perl
Executable File
164 lines
4.6 KiB
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
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 ByteTest:TestParse];
|
|
my @mapfiles = ('s,^MonoTests\.(.*)/,$1/,',
|
|
's,^Ximian\.Mono\.Tests(.*)/,,',
|
|
's,^System\.Net/,,',
|
|
's,^Collections\.Specialized\.,,',
|
|
's,^Text\.RegularExpressions\.,,'
|
|
);
|
|
my @maptests = ();
|
|
my @mapnamespace = ();
|
|
|
|
die "Usage: $0 input output" unless $#ARGV == 1;
|
|
|
|
my $namespace = 'MonoTests';
|
|
|
|
sub parse_test {
|
|
my ($filename, $namespace, $testname, $suite) = @_;
|
|
|
|
foreach (@badsuites) {
|
|
return if $filename =~ /$_/;
|
|
}
|
|
|
|
my $map;
|
|
foreach $map (@mapfiles) {
|
|
eval "\$filename =~ $map";
|
|
}
|
|
|
|
foreach (@allfiles) {
|
|
return if $filename eq $_->[0];
|
|
}
|
|
|
|
# print STDERR "PARSE: |$filename|\n";
|
|
|
|
push @allfiles, [$filename,$namespace,$testname,$suite,[]];
|
|
|
|
my $INPUT;
|
|
open $INPUT, $filename or croak "open ($filename): $!";
|
|
while (defined ($_ = <$INPUT>)) {
|
|
if (/^\s*namespace\s*([\w\.]+?)\s*$/) {
|
|
$namespace = $1;
|
|
next;
|
|
}
|
|
if (/^\s*suite\.AddTest\s*\((.*)\.(.*?)\.Suite\)/) {
|
|
my $filename = (defined $namespace) ? qq[$namespace.$1/$2.cs] : qq[$1/$2.cs];
|
|
my $nsprefix = (defined $namespace) ? qq[$namespace.$1] : qq[MonoTests.$1];
|
|
parse_test ($filename, $nsprefix, $1, $2);
|
|
next;
|
|
}
|
|
if (/^\s*suite\.AddTest\s*\((.*?)\.Suite\)/) {
|
|
my $filename = (defined $namespace) ? qq[$namespace/$1.cs] : qq[$1.cs];
|
|
parse_test ($filename, $namespace, '', $1);
|
|
next;
|
|
}
|
|
if (/^\s*suite\.AddTest\s*\(\s*new\s+TestSuite\s*\(\s*typeof\(\s*(.*)\s*\)\s*\)\s*\);/) {
|
|
my $filename = (defined $namespace) ? qq[$namespace/$1.cs] : qq[$1.cs];
|
|
parse_test ($filename, $namespace, '', $1);
|
|
next;
|
|
}
|
|
}
|
|
close $INPUT;
|
|
}
|
|
|
|
parse_test ($ARGV[0], undef, '', '');
|
|
|
|
my $file;
|
|
foreach $file (@allfiles) {
|
|
my ($filename,$namespace,$testname,$suite) = @$file;
|
|
|
|
open SUITE, $filename or croak "open ($filename): $!";
|
|
while (defined ($_ = <SUITE>)) {
|
|
next unless /^\s*public\s+void\s+(Test.*?)\s*\(\s*\)/;
|
|
push @{$file->[4]}, $1;
|
|
}
|
|
close SUITE;
|
|
}
|
|
|
|
open OUTPUT, "> $ARGV[1]" or croak "open (> $ARGV[1]): $!";
|
|
select OUTPUT;
|
|
|
|
print qq[using NUnit.Framework;\n];
|
|
print qq[using System;\n];
|
|
print qq[using System.Threading;\n];
|
|
print qq[using System.Globalization;\n\n];
|
|
|
|
|
|
my $alltest;
|
|
foreach $alltest (@allfiles) {
|
|
|
|
my ($filename,$namespace,$testname,$suite,$tests) = @$alltest;
|
|
my @tests = @$tests;
|
|
|
|
next unless defined $namespace;
|
|
next unless $#tests >= 0;
|
|
|
|
# print STDERR "DOING TEST: |$testname|$filename|\n";
|
|
|
|
$namespace .= ".$testname" unless $testname eq '';
|
|
|
|
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 $badtest;
|
|
$filename =~ s/\.cs$//;
|
|
my $fullname = qq[$filename:$test];
|
|
# print STDERR "TEST: |$fullname|\n";
|
|
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\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[namespace $namespace\n\{\n];
|
|
print qq[\tpublic class RunAllTests\n\t\{\n];
|
|
print qq[\t\tpublic static void AddAllTests (TestSuite suite)\n];
|
|
print qq[\t\t\{\n];
|
|
|
|
foreach $alltest (@allfiles) {
|
|
my ($filename,$namespace,$testname,$suite,$tests) = @$alltest;
|
|
my @tests = @$tests;
|
|
|
|
next unless defined $namespace;
|
|
next unless $#tests >= 0;
|
|
|
|
$namespace .= ".$testname" unless $testname eq '';
|
|
|
|
print qq[\t\t\tsuite.AddTest (new $namespace.Run$suite ());\n];
|
|
}
|
|
|
|
print qq[\t\t\}\n\t\}\n\}\n\n];
|
|
|
|
print qq[class MainApp\n\{\n];
|
|
print qq[\tpublic static void Main()\n\t\{\n];
|
|
print qq[\t\tThread.CurrentThread.CurrentCulture = new CultureInfo ("en-US");\n\n];
|
|
print qq[\t\tTestResult result = new TestResult ();\n];
|
|
print qq[\t\tTestSuite suite = new TestSuite ();\n];
|
|
print qq[\t\t$namespace.RunAllTests.AddAllTests (suite);\n];
|
|
print qq[\t\tsuite.Run (result);\n];
|
|
print qq[\t\tMonoTests.MyTestRunner.Print (result);\n];
|
|
print qq[\t\}\n\}\n\n];
|
|
|
|
close OUTPUT;
|
|
|