X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fpipeline.t;h=f1035b0233701b6502beed116c6c0ee2a75a8a48;hb=f22d40d72d57fdc8783274558f138cc1189d8be5;hp=886aaf08301a03226036fec55a9dff157a14d24c;hpb=8522f4d534fb0a64f7be010048e988dfda658258;p=p5sagit%2Flocal-lib.git diff --git a/t/pipeline.t b/t/pipeline.t index 886aaf0..f1035b0 100644 --- a/t/pipeline.t +++ b/t/pipeline.t @@ -1,15 +1,13 @@ - use strict; use warnings; -use Test::More 'no_plan'; +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); }