From 40ef29ddbe555460fb2a29cd9ecfcdce1f901172 Mon Sep 17 00:00:00 2001 From: dakkar Date: Sat, 28 Jan 2006 11:00:49 +0000 Subject: il driver fa le due passate, fix #1 git-svn-id: svn://luxion/repos/WebCoso/trunk@141 fcb26f47-9200-0410-b104-b98ab5b095f3 --- t/02-driver.t | 13 +++++++++++-- t/lib/WebCoso/Pipeline/Test.pm | 6 +++--- 2 files changed, 14 insertions(+), 5 deletions(-) (limited to 't') diff --git a/t/02-driver.t b/t/02-driver.t index 444d5d6..bdcf78b 100644 --- a/t/02-driver.t +++ b/t/02-driver.t @@ -21,7 +21,16 @@ ok(WebCoso::Driver->run(), 'il driver va'); my @calls=WebCoso::Pipeline::Test->get_calls(); my @resources=WebCoso::Config->get_all_resources(); -is(scalar @calls,1,'una chiamata'); +is(scalar @calls,2,'due chiamate'); is($calls[0]->{resource}, $resources[0], - 'alla risorsa giusta'); + 'alla risorsa giusta (1)'); +is($calls[1]->{resource}, + $resources[0], + 'alla risorsa giusta (2)'); +is($calls[0]->{stage}, + 'meta', + 'stage1==meta'); +is($calls[1]->{stage}, + 'gen', + 'stage1==gen'); 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; -- cgit v1.2.3