Wholesale import of xm-test 0.4.0.

This is not yet integrated with the rest of the Xen build system.

Signed-off-by: Ewan Mellor <ewan@xensource.com>

1 files changed, 71 insertions, 0 deletions

diff --git a/tools/xm-test/mkreport b/tools/xm-test/mkreport
new file mode 100644
index 0000000000..24c4270f20
--- /dev/null
+++ b/tools/xm-test/mkreport
@@ -0,0 +1,71 @@
+#!/usr/bin/perl
+
+open(LOG, $ARGV[0]);
+@lines = <LOG>;
+
+foreach $line (@lines) {
+    if ($line =~ /^[A-Z]+/) {
+	chomp($line);
+	($type, @rest) = split(/:/, $line);
+
+	$message = "";
+	foreach $chunk (@rest) {
+	    $message .= $chunk;
+	}
+	
+	if ($type eq "REASON") {
+
+	    $last_reason = $message ;
+
+	} elsif ($type =~ /X?FAIL/) {
+
+	    $rest[0] =~ /([^\. ]+)\.test/;
+	    $name = $1;
+
+	    $passfail = $type;
+	    $testname = $name;
+	    $extra    = "\n\t$last_reason\n";
+
+	    $last_reason = "Unknown reason";
+	    
+	} elsif ($type =~ /X?PASS/) {
+
+	    $rest[0] =~ /([^\. ]+)\.test/;
+	    $name = $1;
+
+	    $passfail = $type;
+	    $testname = $name;
+	    $extra    = "";
+
+	    $last_reason = "Unknown reason";
+
+	} else {
+
+	    $passfail = $type;
+	    $testname = "UNKN";
+	    $extra    = "Unknown status type $type!";
+
+	    $last_reason = "Unknown reason";
+
+	}
+
+	push(@results, ([$testname, $passfail, $extra]));
+
+    }
+
+}
+
+foreach $test (@results) {
+
+    
+    if ($tests{$test->[0]} eq undef) {
+	if ($test->[1] =~ /^X?FAIL/) {
+	    $fmt = "%5s: %s %s\n";
+	    printf($fmt, $test->[1], $test->[0], $test->[2]);
+	}
+	$tests{$test->[0]} = 1;
+    }
+
+
+}
+