aboutsummaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authordakkar <dakkar@luxion>2006-01-28 11:00:49 +0000
committerdakkar <dakkar@luxion>2006-01-28 11:00:49 +0000
commit40ef29ddbe555460fb2a29cd9ecfcdce1f901172 (patch)
tree5a66d39687cbc4339976fc912b9df909ee8375ff /t
parentaggiunta struttura base pipeline, e test, re #2 (diff)
downloadWebCoso-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')
-rw-r--r--t/02-driver.t13
-rw-r--r--t/lib/WebCoso/Pipeline/Test.pm6
2 files changed, 14 insertions, 5 deletions
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;