This is an automated email from the git hooks/post-receive script.
js pushed a commit to branch master
in repository libcatmandu-perl.
commit a5c7da73b32494e4f7aca841901a84d2831e2320
Author: Patrick Hochstenbach <patrick.hochstenb...@ugent.be>
Date: Thu Dec 10 16:46:44 2015 +0100
More tests
---
Build.PL | 2 ++
t/Catmandu-Importer.t | 6 +++++-
2 files changed, 7 insertions(+), 1 deletion(-)
diff --git a/Build.PL b/Build.PL
index 55948f9..fa727df 100644
--- a/Build.PL
+++ b/Build.PL
@@ -67,6 +67,7 @@ my %module_build_args = (
"Log::Any::Test" => "1.03",
"Test::Deep" => "0.112",
"Test::Exception" => "0.32",
+ "Test::LWP::UserAgent" => 0,
"Test::More" => "0.99",
"Test::Pod" => 0
}
@@ -78,6 +79,7 @@ my %fallback_build_requires = (
"Module::Build" => "0.28",
"Test::Deep" => "0.112",
"Test::Exception" => "0.32",
+ "Test::LWP::UserAgent" => 0,
"Test::More" => "0.99",
"Test::Pod" => 0
);
diff --git a/t/Catmandu-Importer.t b/t/Catmandu-Importer.t
index 6604c34..2af0dc7 100644
--- a/t/Catmandu-Importer.t
+++ b/t/Catmandu-Importer.t
@@ -66,7 +66,11 @@ $i = T::Importer->new( user_agent => user_agent() , file =>
'http://demo.org/{id
is $i->file , "http://demo.org/1234";;
is $i->readall , "test1234" , "read from http (file + variables)";
-$i = T::Importer->new( user_agent => user_agent() , file =>
'http://demo.org/{id}' , variables => { id => [qw(red green blue)]});
+$i = T::Importer->new( user_agent => user_agent() , file =>
'http://demo.org/{1},{2},{3}' , variables => [qw(red green blue)]);
+is $i->file , "http://demo.org/red,green,blue";;
+is $i->readall , "RED-GREEN-BLUE" , "read from http (file + variables list)";
+
+$i = T::Importer->new( user_agent => user_agent() , file =>
'http://demo.org/{1},{2},{3}' , variables => "red,green,blue" );
is $i->file , "http://demo.org/red,green,blue";;
is $i->readall , "RED-GREEN-BLUE" , "read from http (file + variables list)";
--
Alioth's /usr/local/bin/git-commit-notice on
/srv/git.debian.org/git/pkg-perl/packages/libcatmandu-perl.git
_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
