Shlomi Fish avatar Shlomi Fish committed eaa900a

Remove more trailing space.

Apparently Test-Run-TAP-Model got broken.

Comments (0)

Files changed (13)

build/enable-runtest-in-distro/module-build-test-runify.pl

-#!/usr/bin/perl 
+#!/usr/bin/perl
 
 use strict;
 use warnings;
         Test::Run::CmdLine::Iface->new(
             {
                 'test_files' => [glob("t/*.t")],
-            }   
+            }
             # 'backend_params' => $self->_get_backend_params(),
         );
 

build/tag-and-release/tag-and-release.pl

 
 has '_repos_path' => (isa => "Str", is => "ro", required => 1,
     init_arg => "repos_path");
-has '_svn_ra' => (isa => "SVN::Ra", is => "ro", lazy => 1, 
+has '_svn_ra' => (isa => "SVN::Ra", is => "ro", lazy => 1,
     builder  => "_create_svn_ra"
 );
 
 sub _create_svn_ra
-{ 
+{
     my $self = shift;
 
     my ($baton) = SVN::Core::auth_open_helper([SVN::Client::get_ssl_server_trust_file_provider()]);
     return SVN::Ra->new(
         url => $self->_repos_path(),
         auth => $baton,
-    ) ; 
+    ) ;
 }
 
 sub _should_be_dir

build/test-and-install-all-modules/create-makefile.pl

-#!/usr/bin/perl 
+#!/usr/bin/perl
 
 use strict;
 use warnings;
 }
 
 my $modules_dir = File::Spec->catfile(@source_dir, "modules");
-system($^X,"gen-perl-modules-inst-makefile.pl", 
+system($^X,"gen-perl-modules-inst-makefile.pl",
     "-o", File::Spec->catfile($cwd, "Modules.mak"),
     "--prefix=$inst_modules_dir",
-    (map { "--dir=" . 
-            File::Spec->catdir($modules_dir, split(m{/}, $_)) 
-         } 
+    (map { "--dir=" .
+            File::Spec->catdir($modules_dir, split(m{/}, $_))
+         }
     (qw(
          Test-Run
          Test-Run-CmdLine

build/test-and-install-all-modules/gen-perl-modules-inst-makefile.pl

 {
     my $dir = shift;
     my $bin_prefix = q{\\$$(SITEPREFIX)/bin};
-    handle_deps($dir, 
+    handle_deps($dir,
         [
-            "$(PERL) Makefile.PL PREFIX=\"$prefix\" INSTALLSITEBIN=\"$bin_prefix\" INSTALLSITESCRIPT=\"$bin_prefix\"", 
-            "make", 
-            "make \$(TEST_TARGET)", 
+            "$(PERL) Makefile.PL PREFIX=\"$prefix\" INSTALLSITEBIN=\"$bin_prefix\" INSTALLSITESCRIPT=\"$bin_prefix\"",
+            "make",
+            "make \$(TEST_TARGET)",
             "make install",
         ],
         "make clean",
 sub process_mb_dir
 {
     my $dir = shift;
-    handle_deps($dir, 
+    handle_deps($dir,
         [
-            "\$(PERL) Build.PL", 
-            "./Build", 
-            "./Build \$(TEST_TARGET)", 
+            "\$(PERL) Build.PL",
+            "./Build",
+            "./Build \$(TEST_TARGET)",
             "./Build install prefix=\"$prefix\"",
         ],
         "./Build clean",
     $text .= "${dir}: $id-step0\n\n";
     foreach my $i (0 .. $#deps)
     {
-        $text .= "$id-step${i}: " . 
-            (($i == $#deps) ? "" : ("$id-step" . ($i+1))) . 
+        $text .= "$id-step${i}:" .
+            (($i == $#deps) ? "" : (" $id-step" . ($i+1))) .
             "\n";
         $text .= "\t(cd $dir && " . $deps[$i] . ")\n";
         $text .= "\n";
     open O, ">", $o_fn;
 }
 
-print O "all: ", join(" ", @dirs) . "\n\n";
+print O "all:", join('', map { " $_" } @dirs) . "\n\n";
 
 print O "TEST_TARGET = test\n\n";
 
 print O "PERL = perl\n\n";
 
-print O "cleanall: ", join(" ", map {"CLEAN--$_"} @dirs). "\n\n";
+print O "cleanall:", join('', map {" CLEAN--$_"} @dirs). "\n\n";
 
 print O $text;
 

modules/Test-Run-TAP-Model/Build.PL

 	module_name => 'Test::Run::TAP::Model',
 	license => 'perl',
 	requires => {
-		'perl'				=> '5.8',
+		'perl'				=> '5.008',
 	},
 	build_requires => {
 		'Test::More' => "0.53",

modules/Test-Run-TAP-Model/lib/Test/Run/TAP/Model.pm

 
 	die "Bailed out"; # catch with an eval { }
 }
-        
+
 sub _handle_test {
 	my($self, $line, $type, $totals) = @_;
 	my $curr = $totals->{seen}||0;
 sub latest_event {
 	my($self) = shift;
         my %event = @_;
-        $self->{events}[-1] || $self->log_event(%event);  
+        $self->{events}[-1] || $self->log_event(%event);
 }
 
 sub run {
 	my $file = shift;
 
 	my $test_file = $self->start_file($file);
-	
+
 	my %results = eval { $self->analyze_file($file) };
 	$test_file->{results} = \%results;
 	delete $test_file->{results}{details};
 	$test_file;
 }
 
-sub file_class { "Test::Run::TAP::Model::File" }	
+sub file_class { "Test::Run::TAP::Model::File" }
 
 sub test_files {
 	my $self = shift;
 
 	# here's a convenient wrapper
 	$t = Test::Run::TAP::Model->new_with_tests(glob("t/*.t"));
-	
+
 	# that's shorthand for new->run_tests
 	$t->run_tests(qw{ t/foo.t t/bar.t });
 
 		pre_diag => # diagnosis emitted before any test
 	};
 
-	%results = $strap->analyze_foo(); 
+	%results = $strap->analyze_foo();
 
 	$events = [
 		{

modules/Test-Run-TAP-Model/lib/Test/Run/TAP/Model/Consolidated.pm

 	my @arrays = @_ or return ();
 
 	my $max = List::Util::max(map { scalar @$_ } @arrays);
-	
+
 	my @result;
 
 	for (my $i = 0; $i < $max; $i++) {
 =head1 SYNOPSIS
 
 	use Test::Run::TAP::Model::Consolidated;
-	
+
 	my $c = Test::Run::TAP::Model::Consolidated->new(@models); # see Test::Run::TAP::Model
 
 	$c->ok; # all tests from all models are OK?

modules/Test-Run-TAP-Model/lib/Test/Run/TAP/Model/File.pm

 			my $diff = @cases - $max;
 			for (my $i = $diff; $i; $i--){
 				$cases[-$i]{unplanned} = 1;
-			}	
+			}
 		}
 	}
 
 =head1 SYNOPSIS
 
 	my $f = ( $t->test_files )[0];
-	
+
 	if ($f->ok){ # et cetera
 		print "happy happy joy joy!";
 	}

modules/Test-Run-TAP-Model/lib/Test/Run/TAP/Model/File/Consolidated.pm

 
 =head1 NAME
 
-Test::Run::TAP::Model::File::Consolidated - 
+Test::Run::TAP::Model::File::Consolidated -
 
 =head1 SYNOPSIS
 

modules/Test-Run-TAP-Model/lib/Test/Run/TAP/Model/Subtest.pm

 	my $struct = shift;
 
 	croak "eek! You can't bless non test events into $pkg" unless $struct->{type} eq "test";
-	
+
 	bless \$struct, $pkg; # don't bless the structure, it's not ours to mess with
 }
 

modules/Test-Run-TAP-Model/t/basic.t

 $s = $t->structure;
 my $t2 = Test::Run::TAP::Model->new_with_struct($s);
 isa_ok($t2, $m);
-isa_ok($t2, "Test::Run::Straps"); 
+isa_ok($t2, "Test::Run::Straps");
 
 # Try new_with_tests
 my $t3 = Test::Run::TAP::Model->new_with_tests($s->{test_files});
 $event{todo} = 1;
 $t4->latest_event(%event);
 isa_ok(my $l = $t4->latest_event, "HASH");
-is_deeply([ sort keys %$l], [ sort qw/type todo/], 
+is_deeply([ sort keys %$l], [ sort qw/type todo/],
    "Test latest_event with parameters");
 
 __DATA__

modules/Test-Run-TAP-Model/t/comprehensive.t

 TAP
 
 	ok($s->ok, "suite OK");
-	
+
 	is($s->test_files, 1, "one file");
 	isa_ok(my $f = ($s->test_files)[0], "Test::Run::TAP::Model::File");
 
 
 	is($s->test_files, 1, "one file");
 	isa_ok(my $f = ($s->test_files)[0], "Test::Run::TAP::Model::File");
-	
+
 	is($f->cases, 4, "actual cases");
 	is($f->planned, 4, "number planned");
 	ok($f->nok, "file as a whole is not ok");
 ok 2
 ok 3
 TAP
-	
+
 	ok(!$s->ok, "suite isn't ok yet");
 	my $f = ($s->test_files)[0];
 	is($f->planned, 0, "no tests planned");
 ok 3
 1..3
 TAP
-	
+
 	ok($s->ok, "suite ok");
 	my $f = ($s->test_files)[0];
 	is($f->planned, 3, "plan at end registered");

modules/Test-Run-TAP-Model/t/lib/StringHarness.pm

 
 =head1 NAME
 
-StringHarness - 
+StringHarness -
 
 =head1 SYNOPSIS
 
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.