diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2007-08-12 01:49:38 +0000 |
---|---|---|
committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 15:01:41 -0500 |
commit | a83380eecefbc9d488a404d3a461670838bd11d0 (patch) | |
tree | 150e990283094d2dfe68f97f4758b6ae4c88d99e /source4/selftest/subunit-summary | |
parent | 4da477d4fa891703497608c6b93402c4fc278f95 (diff) | |
download | samba-a83380eecefbc9d488a404d3a461670838bd11d0.tar.gz samba-a83380eecefbc9d488a404d3a461670838bd11d0.tar.bz2 samba-a83380eecefbc9d488a404d3a461670838bd11d0.zip |
r24342: Move environments into a separate directory.
(This used to be commit e3fe7ef92bae1a870c9de9f90becb3a3c67f98fe)
Diffstat (limited to 'source4/selftest/subunit-summary')
-rwxr-xr-x | source4/selftest/subunit-summary | 70 |
1 files changed, 0 insertions, 70 deletions
diff --git a/source4/selftest/subunit-summary b/source4/selftest/subunit-summary deleted file mode 100755 index aec50ed02a..0000000000 --- a/source4/selftest/subunit-summary +++ /dev/null @@ -1,70 +0,0 @@ -#!/usr/bin/perl -# Simple subunit parser -# (C) 2006 Jelmer Vernooij <jelmer@samba.org> - -use strict; -use Getopt::Long; - -my $numtests = 0; -my $numfails = 0; -my $numskips = 0; -my $numsuccess = 0; - -my $opt_help = 0; -my $opt_progress = 0; - -my $result = GetOptions ( - 'help|h|?' => \$opt_help, - 'progress' => \$opt_progress - ); - -if (not $result) { - exit(1); -} - -if ($opt_help) { - print "subunit output summarizer\n"; - print "Copyright (C) 2006 Jelmer Vernooij <jelmer\@samba.org>\n"; - print "\n"; - print "Usage: subunit-summary [OPTION]\n"; - print " --help Print this help message\n"; - print "\n"; - exit(0); -} - -while(<STDIN>) { - next unless (/^(.+): (.+?)( \[)?$/); - if ($1 eq "test") { - $numtests++; - } elsif ($1 eq "error") { - print "E" if ($opt_progress); - } elsif ($1 eq "failure") { - $numfails++; - print "F" if ($opt_progress); - } elsif ($1 eq "success") { - $numsuccess++; - print "." if ($opt_progress); - } elsif ($1 eq "skip") { - $numskips++; - print "I" if ($opt_progress); - } elsif ($1 eq "testsuite") { - if ($opt_progress) { - if ($numtests) { print "\n"; } - print "$2: "; - } - } -} - -print "\n" if ($opt_progress); - -if ($numtests == 0) { - print "No tests run\n"; - exit(0); -} - -printf("%d%%: %d tests, %d succeeded, %d failed, %d skipped\n", - ($numsuccess / $numtests * 100), - $numtests, - $numsuccess, - $numfails, - $numskips); |