diff options
| author | dakkar <dakkar@luxion> | 2006-01-28 11:00:49 +0000 |
|---|---|---|
| committer | dakkar <dakkar@luxion> | 2006-01-28 11:00:49 +0000 |
| commit | 40ef29ddbe555460fb2a29cd9ecfcdce1f901172 (patch) | |
| tree | 5a66d39687cbc4339976fc912b9df909ee8375ff /t/lib | |
| parent | aggiunta struttura base pipeline, e test, re #2 (diff) | |
| download | WebCoso-40ef29ddbe555460fb2a29cd9ecfcdce1f901172.tar.gz WebCoso-40ef29ddbe555460fb2a29cd9ecfcdce1f901172.tar.bz2 WebCoso-40ef29ddbe555460fb2a29cd9ecfcdce1f901172.zip | |
il driver fa le due passate, fix #1
git-svn-id: svn://luxion/repos/WebCoso/trunk@141 fcb26f47-9200-0410-b104-b98ab5b095f3
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/WebCoso/Pipeline/Test.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/lib/WebCoso/Pipeline/Test.pm b/t/lib/WebCoso/Pipeline/Test.pm index 6920f46..2d13d69 100644 --- a/t/lib/WebCoso/Pipeline/Test.pm +++ b/t/lib/WebCoso/Pipeline/Test.pm @@ -8,11 +8,11 @@ __PACKAGE__->set_steps(qw(Step1 Step2)); my @calls; sub process { - my ($class,$resource)=@_; + my ($class,$resource,$stage)=@_; - my $call={ resource => $resource }; + my $call={ resource => $resource, stage => $stage }; - my $ret=$class->SUPER::process($resource); + my $ret=$class->SUPER::process($resource,$stage); push @calls, $call; |