projects
/
p5sagit/local-lib.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
use $Config{path_sep} in tests, not :
[p5sagit/local-lib.git]
/
t
/
pipeline.t
1
2
use strict;
3
use warnings;
4
use Test::More 'no_plan';
5
use local::lib ();
6
7
{
8
9
package local::lib;
10
11
{ package Foo; sub foo { -$_[1] } sub bar { $_[1]+2 } sub baz { $_[1]+3 } }
12
my $foo = bless({}, 'Foo');
13
Test::More::ok($foo->${pipeline qw(foo bar baz)}(10) == -15);
14
15
}