don't try to test cmd or powershell on cygwin

[p5sagit/local-lib.git] / t / pipeline.t

diff --git a/t/pipeline.t b/t/pipeline.t
index f1994ad..f1035b0 100644 (file)
--- 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);
 }