[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH] cosmetics: fix botched indentation in perl TAP driver
From: |
Stefano Lattarini |
Subject: |
[PATCH] cosmetics: fix botched indentation in perl TAP driver |
Date: |
Sat, 20 Aug 2011 14:17:38 +0200 |
* lib/tap-driver.pl (main, Getopt::Long::GetOptions): Fix
improper or botched indentation.
---
ChangeLog | 6 ++++++
lib/tap-driver.pl | 31 ++++++++++++++++---------------
2 files changed, 22 insertions(+), 15 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index bdccc31..c64cf6e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
2011-08-20 Stefano Lattarini <address@hidden>
+ cosmetics: fix botched indentation in perl TAP driver
+ * lib/tap-driver.pl (main, Getopt::Long::GetOptions): Fix
+ improper or botched indentation.
+
+2011-08-20 Stefano Lattarini <address@hidden>
+
coverage: some more tests on corner cases of TAP support
* tests/tap-no-spurious.test: Extend checks verifying that a line
matching, say, the regex "^ok[a-zA-Z0-9_]" is *not* considered a
diff --git a/lib/tap-driver.pl b/lib/tap-driver.pl
index 7043815..9e1ece4 100755
--- a/lib/tap-driver.pl
+++ b/lib/tap-driver.pl
@@ -73,7 +73,8 @@ my $log_file = undef;
my $trs_file = undef;
my $diag_string = "#";
-Getopt::Long::GetOptions (
+Getopt::Long::GetOptions
+ (
'help' => sub { print $HELP; exit 0; },
'version' => sub { print "$ME $VERSION\n"; exit 0; },
'test-name=s' => \$test_script_name,
@@ -450,22 +451,22 @@ sub main (@)
if (!$bailed_out)
{
if (!$plan_seen)
- {
- testsuite_error "missing test plan";
- }
- elsif ($parser->tests_planned != $parser->tests_run)
- {
- my ($planned, $run) = ($parser->tests_planned, $parser->tests_run);
- my $bad_amount = $run > $planned ? "many" : "few";
- testsuite_error (sprintf "too %s tests run (expected %d, got %d)",
- $bad_amount, $planned, $run);
- }
+ {
+ testsuite_error "missing test plan";
+ }
+ elsif ($parser->tests_planned != $parser->tests_run)
+ {
+ my ($planned, $run) = ($parser->tests_planned, $parser->tests_run);
+ my $bad_amount = $run > $planned ? "many" : "few";
+ testsuite_error (sprintf "too %s tests run (expected %d, got %d)",
+ $bad_amount, $planned, $run);
+ }
}
if (!$cfg{"ignore-exit"} && !$bailed_out)
- {
- my $msg = get_test_exit_message ();
- testsuite_error $msg if $msg;
- }
+ {
+ my $msg = get_test_exit_message ();
+ testsuite_error $msg if $msg;
+ }
write_test_results;
close LOG or die "closing $log_file: $!\n";
exit 0;
--
1.7.2.3
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [PATCH] cosmetics: fix botched indentation in perl TAP driver,
Stefano Lattarini <=