[libcatmandu-perl] 13/101: Extra tests

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to branch master
in repository libcatmandu-perl.

commit bda77da35ab82f9b073f4ee1466a584a08112dab
Author: Patrick Hochstenbach <patrick.hochstenbach at ugent.be>
Date:   Thu Dec 10 16:28:58 2015 +0100

    Extra tests
---
 Build.PL                 |  4 ++--
 cpanfile                 |  1 +
 lib/Catmandu/Importer.pm |  3 ++-
 t/Catmandu-Importer.t    | 49 ++++++++++++++++++++++++++++++++++++++++++++++++
 t/Catmandu-Util.t        |  5 ++++-
 5 files changed, 58 insertions(+), 4 deletions(-)

diff --git a/Build.PL b/Build.PL
index 3cf9dc3..55948f9 100644
--- a/Build.PL
+++ b/Build.PL
@@ -1,5 +1,5 @@
 
-# This file was automatically generated by Dist::Zilla::Plugin::ModuleBuild v5.041.
+# This file was automatically generated by Dist::Zilla::Plugin::ModuleBuild v5.039.
 use strict;
 use warnings;
 
@@ -15,7 +15,7 @@ my %module_build_args = (
   },
   "dist_abstract" => "a data toolkit",
   "dist_author" => [
-    "Nicolas Steenlant, C<< <nicolas.steenlant at ugent.be> >>"
+    "Nicolas Steenlant <nicolas.steenlant\@ugent.be>"
   ],
   "dist_name" => "Catmandu",
   "dist_version" => "0.9505",
diff --git a/cpanfile b/cpanfile
index 8085d93..f32c7d9 100644
--- a/cpanfile
+++ b/cpanfile
@@ -6,6 +6,7 @@ on 'test', sub {
   requires 'Test::More', '0.99';
   requires 'Test::Pod', 0;
   requires 'Log::Any::Test', '1.03';
+  requires 'Test::LWP::UserAgent' , 0;
 };
 
 requires 'App::Cmd', '0.33';
diff --git a/lib/Catmandu/Importer.pm b/lib/Catmandu/Importer.pm
index 807814e..c9d9df9 100644
--- a/lib/Catmandu/Importer.pm
+++ b/lib/Catmandu/Importer.pm
@@ -46,6 +46,7 @@ has variables => (is => 'ro', predicate => 1);
 has fh => (is => 'ro', lazy => 1, builder => 1);
 has encoding => (is => 'ro', builder=> 1);
 has data_path => (is => 'ro');
+has user_agent => (is => 'ro');
 has http_method => (is => 'lazy');
 has http_headers => (is => 'lazy');
 has http_agent => (is => 'ro', predicate => 1);
@@ -53,7 +54,7 @@ has http_max_redirect => (is => 'ro', predicate => 1);
 has http_timeout => (is => 'ro', predicate => 1);
 has http_verify_hostname => (is => 'ro', default => sub { 1 });
 has http_body => (is => 'ro', predicate => 1);
-has _http_client  => (is => 'ro', lazy => 1, builder => '_build_http_client', init_arg => undef);
+has _http_client  => (is => 'ro', lazy => 1, builder => '_build_http_client', init_arg => 'user_agent');
 
 sub _build_encoding {
     ':utf8';
diff --git a/t/Catmandu-Importer.t b/t/Catmandu-Importer.t
index 9fb0f84..6604c34 100644
--- a/t/Catmandu-Importer.t
+++ b/t/Catmandu-Importer.t
@@ -5,6 +5,8 @@ use warnings;
 use v5.10.1;
 use Test::More;
 use Test::Exception;
+use Test::LWP::UserAgent;
+use HTTP::Response;
 
 my $pkg;
 BEGIN {
@@ -57,5 +59,52 @@ is_deeply $i->to_array, [[{a=>1},{b=>2},{c=>3}],[{d=>4},{e=>5},{f=>6}]];
 $i = T::DataPathImporter->new(data_path => 'abc.*');
 is_deeply $i->to_array, [{a=>1},{b=>2},{c=>3},{d=>4},{e=>5},{f=>6}];
 
+$i = T::Importer->new( user_agent => user_agent() , file => 'http://demo.org/' );
+is $i->readall , "test123" , "read from http (file)";
+
+$i = T::Importer->new( user_agent => user_agent() , file => 'http://demo.org/{id}' , variables => { id => 1234} );
+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)]});
+is $i->file , "http://demo.org/red,green,blue";
+is $i->readall , "RED-GREEN-BLUE" , "read from http (file + variables list)";
+
 done_testing;
 
+sub user_agent  {
+    my $ua = Test::LWP::UserAgent->new(agent => 'Test/1.0');
+
+    $ua->map_response(
+        qr{^http://demo.org/$},
+        HTTP::Response->new(
+            '200' ,
+            'OK' ,
+            [ 'Content-Type' => 'text/plain'] ,
+            'test123'
+        )
+    );
+
+    $ua->map_response(
+        qr{^http://demo.org/1234$},
+        HTTP::Response->new(
+            '200' ,
+            'OK' ,
+            [ 'Content-Type' => 'text/plain'] ,
+            'test1234'
+        )
+    );
+
+    $ua->map_response(
+        qr{^http://demo.org/red,green,blue$},
+        HTTP::Response->new(
+            '200' ,
+            'OK' ,
+            [ 'Content-Type' => 'text/plain'] ,
+            'RED-GREEN-BLUE'
+        )
+    );
+
+    $ua;
+}
+
diff --git a/t/Catmandu-Util.t b/t/Catmandu-Util.t
index 6a31585..6924915 100644
--- a/t/Catmandu-Util.t
+++ b/t/Catmandu-Util.t
@@ -393,7 +393,10 @@ is Catmandu::Util::capitalize("école") , "École" , 'capitalize';
 
 is Catmandu::Util::human_number(64354) , "64,354" , 'human_number';
 
+is Catmandu::Util::human_byte_size(10) , "10 bytes" , 'human_byte_size';
+is Catmandu::Util::human_byte_size(10005) , "10.01 KB" , 'human_byte_size';
 is Catmandu::Util::human_byte_size(10005000) , "10.01 MB" , 'human_byte_size';
+is Catmandu::Util::human_byte_size(10005000000) , "10.01 GB" , 'human_byte_size';
 
 is Catmandu::Util::human_content_type('application/x-dos_ms_excel') , 'Excel' , 'human_content_type';
 
@@ -401,4 +404,4 @@ is Catmandu::Util::xml_declaration() , qq(<?xml version="1.0" encoding="UTF-8"?>
 
 is Catmandu::Util::xml_escape("<>'&") , '<>'&' , 'xml_escape';
 
-done_testing 531;
\ No newline at end of file
+done_testing 534;
\ No newline at end of file

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcatmandu-perl.git