1 files changed, 35 insertions, 0 deletions
diff --git a/t/03-pipeline.t b/t/03-pipeline.t
new file mode 100644
index 0000000..0095596
--- /dev/null
+++ b/t/03-pipeline.t
@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use Path::Class;
+use Test::More 'no_plan';
+use Test::Exception;
+use lib 't/lib';
+use WebCoso::Config;
+use WebCoso::Driver;
+use WebCoso::Pipeline::Test;
+
+my $thisdir=file($0)->parent->absolute;
+
+my $conf_file=<<'EOF';
+res('src/file1.rest.txt','Test','dst/file.html');
+EOF
+
+WebCoso::Config->read_scalar($conf_file,"$thisdir/config-in-test");
+
+WebCoso::Driver->run();
+
+my @resources=WebCoso::Config->get_all_resources();
+
+my @calls1=WebCoso::Step::Step1->get_calls();
+is(scalar @calls1,1,"1 chiamata a Step1");
+is($calls1[0]->{resource},
+   $resources[0],
+   'risorsa giusta passata a Step1');
+
+my @calls2=WebCoso::Step::Step2->get_calls();
+is(scalar @calls2,1,"1 chiamata a Step2");
+is($calls2[0]->{resource},
+   $calls1[0]->{out_res},
+   'risorsa giusta passata a Step2');
+