From: Karen Etheridge Date: Thu, 3 Oct 2013 19:56:40 +0000 (-0700) Subject: whitespace cleanup X-Git-Tag: 1.008020~1 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e7ffbae6d2ffe2527f579dd41716d6e3e783fa91;p=p5sagit%2Flocal-lib.git whitespace cleanup --- diff --git a/t/classmethod.t b/t/classmethod.t index 1b27a7f..5493874 100644 --- a/t/classmethod.t +++ b/t/classmethod.t @@ -1,35 +1,24 @@ - use strict; use warnings; use Test::More tests => 4;; use local::lib (); - my $c = 'local::lib'; - { - -is($c->resolve_empty_path, '~/perl5'); -is($c->resolve_empty_path('foo'), 'foo'); - + is($c->resolve_empty_path, '~/perl5'); + is($c->resolve_empty_path('foo'), 'foo'); } { - -no warnings 'once'; -local *File::Spec::rel2abs = sub { shift; 'FOO'.shift; }; -is($c->resolve_relative_path('bar'),'FOObar'); - + no warnings 'once'; + local *File::Spec::rel2abs = sub { shift; 'FOO'.shift; }; + is($c->resolve_relative_path('bar'),'FOObar'); } { - -File::Path::rmtree('t/var/splat'); - -$c->ensure_dir_structure_for('t/var/splat'); - -ok(-d 't/var/splat'); - + File::Path::rmtree('t/var/splat'); + $c->ensure_dir_structure_for('t/var/splat'); + ok(-d 't/var/splat'); } diff --git a/t/pipeline.t b/t/pipeline.t index a433f2c..f1035b0 100644 --- a/t/pipeline.t +++ b/t/pipeline.t @@ -1,4 +1,3 @@ - use strict; use warnings; use Test::More tests => 1; @@ -6,11 +5,9 @@ use Test::More tests => 1; use local::lib (); { + package local::lib; -package local::lib; - -{ package Foo; sub foo { -$_[1] } sub bar { $_[1]+2 } sub baz { $_[1]+3 } } -my $foo = bless({}, 'Foo'); -Test::More::ok($foo->${pipeline qw(foo bar baz)}(10) == -15); - + { package Foo; sub foo { -$_[1] } sub bar { $_[1]+2 } sub baz { $_[1]+3 } } + my $foo = bless({}, 'Foo'); + Test::More::ok($foo->${pipeline qw(foo bar baz)}(10) == -15); }