subunit: Move more Subunit printing logic to Subunit.pm.
authorJelmer Vernooij <jelmer@samba.org>
Wed, 3 Jun 2009 16:03:45 +0000 (18:03 +0200)
committerJelmer Vernooij <jelmer@samba.org>
Thu, 11 Jun 2009 17:59:57 +0000 (19:59 +0200)
selftest/Subunit.pm
selftest/output/subunit.pm

index fc1a3d1d97d51fcb80c58c03b8c0c4fc5960316d..0bbb795c8c24acbf2a7f63504b43ebb6efc7249c 100644 (file)
@@ -113,4 +113,29 @@ sub parse_results($$$$$)
        return 1;
 }
 
        return 1;
 }
 
+sub start_test($)
+{
+       my ($testname) = @_;
+       print "test: $testname\n";
+}
+
+sub end_test($$;$)
+{
+       my $name = shift;
+       my $result = shift;
+       my $reason = shift;
+       if ($reason) {
+               print "$result: $name [ $reason ]\n";
+       } else {
+               print "$result: $name\n";
+       }
+}
+
+sub report_time($)
+{
+       my ($time) = @_;
+       my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($time);
+       printf "time: %04d-%02d-%02d %02d:%02d:%02dZ\n", $year+1900, $mon, $mday, $hour, $min, $sec;
+}
+
 1;
 1;
index e99b76c1b9d3c1a287c2f3f57ddc1ebba587653a..a7ca5d943d1c2a3603bfec661c3e4dde9049e474 100644 (file)
@@ -36,8 +36,7 @@ sub new($) {
 sub report_time($$)
 {
        my ($self, $time) = @_;
 sub report_time($$)
 {
        my ($self, $time) = @_;
-       my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($time);
-       printf "time: %04d-%02d-%02d %02d:%02d:%02dZ\n", $year+1900, $mon, $mday, $hour, $min, $sec;
+       Subunit::report_time($time);
 }
 
 sub start_testsuite($$)
 }
 
 sub start_testsuite($$)
@@ -46,7 +45,7 @@ sub start_testsuite($$)
 
        $self->{NAME} = $name;
        
 
        $self->{NAME} = $name;
        
-       print "test: $self->{NAME}\n";
+       Subunit::start_test($self->{NAME});
 }
 
 sub output_msg($$)
 }
 
 sub output_msg($$)
@@ -67,18 +66,14 @@ sub end_testsuite($$$$$$)
 
        if ($result eq "failure" and not $unexpected) { $result = "xfail"; }
 
 
        if ($result eq "failure" and not $unexpected) { $result = "xfail"; }
 
-       if ($reason) {
-               print "$result: $name [ $reason ]\n";
-       } else {
-               print "$result: $name\n";
-       }
+       Subunit::end_test($name, $result, $reason);
 }
 
 sub start_test($$$)
 {
        my ($self, $parents, $testname) = @_;
 
 }
 
 sub start_test($$$)
 {
        my ($self, $parents, $testname) = @_;
 
-       print "test: $testname\n";
+       Subunit::start_test($testname);
 }
 
 sub end_test($$$$$)
 }
 
 sub end_test($$$$$)
@@ -87,11 +82,7 @@ sub end_test($$$$$)
 
        if ($result eq "fail" and not $unexpected) { $result = "xfail"; }
 
 
        if ($result eq "fail" and not $unexpected) { $result = "xfail"; }
 
-       if ($reason) {
-               print "$result: $testname [ $reason ]\n";
-       } else {
-               print "$result: $testname\n";
-       }
+       Subunit::end_test($testname, $result, $reason);
 }
 
 sub summary($)
 }
 
 sub summary($)
@@ -103,7 +94,8 @@ sub skip_testsuite($$$$)
 {
        my ($self, $name, $reason) = @_;
 
 {
        my ($self, $name, $reason) = @_;
 
-       print "skip: $name\n";
+       Subunit::start_test($name);
+       Subunit::end_test($name, "skip");
 }
 
 1;
 }
 
 1;