[libcatmandu-perl] 25/101: Adding test for start and limit

[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 5a28293adef347d580530f9617d4221def02f2fb
Author: Patrick Hochstenbach <patrick.hochstenbach at ugent.be>
Date:   Fri Dec 11 14:27:26 2015 +0100

    Adding test for start and limit
---
 t/Catmandu-Cmd-convert.t | 7 +++++--
 t/planets.csv            | 2 +-
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/t/Catmandu-Cmd-convert.t b/t/Catmandu-Cmd-convert.t
index 31d3c8c..ef4c44b 100644
--- a/t/Catmandu-Cmd-convert.t
+++ b/t/Catmandu-Cmd-convert.t
@@ -16,7 +16,7 @@ require_ok $pkg;
 
 use Catmandu::CLI;
 
-my $result = test_app(qq|Catmandu::CLI| => [ qw(convert YAML --file t/catmandu.yml to JSON) ]);
+my $result = test_app(qq|Catmandu::CLI| => [ qw(convert -v YAML --file t/catmandu.yml to JSON) ]);
 
 my $perl = decode_json($result->stdout);
 
@@ -26,4 +26,7 @@ is $result->error, undef, 'threw no exceptions' ;
 # Next test can fail on buggy Perl installations
 ##is $result->stderr, '', 'nothing sent to sderr' ;
 
-done_testing 5;
+$result = test_app(qq|Catmandu::CLI| => [ qw(convert -v --start=2 --total=1 CSV --file t/planets.csv to CSV --header 0 --fields english,latin) ]);
+is $result->stdout, "Moon,Luna\n", 'start and limit' ;
+
+done_testing 6;
diff --git a/t/planets.csv b/t/planets.csv
index ddeafb8..e69e624 100644
--- a/t/planets.csv
+++ b/t/planets.csv
@@ -1,4 +1,4 @@
-english, latin
+english,latin
 Sun,Sol
 Mercury,Mercurius
 Moon,Luna

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