[libcatmandu-perl] 18/101: Adding more 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 9d50a4a36386d8808f47ac6c392ddf1c5098c3a9
Author: Patrick Hochstenbach <patrick.hochstenbach at ugent.be>
Date:   Fri Dec 11 10:58:02 2015 +0100

    Adding more tests
---
 lib/Catmandu/Cmd/info.pm |  2 +-
 t/Catmandu-Cmd-info.t    |  6 +++++-
 t/Catmandu-Cmd.t         | 14 +++++++++++++-
 3 files changed, 19 insertions(+), 3 deletions(-)

diff --git a/lib/Catmandu/Cmd/info.pm b/lib/Catmandu/Cmd/info.pm
index 279691a..9dd60e4 100644
--- a/lib/Catmandu/Cmd/info.pm
+++ b/lib/Catmandu/Cmd/info.pm
@@ -126,4 +126,4 @@ This L<Catmandu::Cmd> uses L<Catmandu::Importer::Modules> to list all modules.
   catmandu info --namespace=Catmandu
   catmandu info --all
   
-=cut
+=cut
\ No newline at end of file
diff --git a/t/Catmandu-Cmd-info.t b/t/Catmandu-Cmd-info.t
index 02f076a..dac7368 100644
--- a/t/Catmandu-Cmd-info.t
+++ b/t/Catmandu-Cmd-info.t
@@ -37,4 +37,8 @@ $result = test_app(qq|Catmandu::CLI| => [ qw(info --stores) ]);
 
 is $result->error, undef, 'threw no exceptions' ;
 
-done_testing 7;
\ No newline at end of file
+$result = test_app(qq|Catmandu::CLI| => [ qw(info --fixes to JSON) ]);
+
+is $result->error, undef, 'threw no exceptions' ;
+
+done_testing 8;
\ No newline at end of file
diff --git a/t/Catmandu-Cmd.t b/t/Catmandu-Cmd.t
index d7dcd31..5638839 100644
--- a/t/Catmandu-Cmd.t
+++ b/t/Catmandu-Cmd.t
@@ -33,11 +33,23 @@ like $result->stdout , qr/commands:/, 'printed what we expected';
 is $result->error, undef, 'threw no exceptions' ;
 is $result->stderr, '', 'nothing sent to sderr' ;
 
+$result = test_app('Catmandu::CLI' => [ qw(--help) ]);
+
+like $result->stdout , qr/commands:/, 'printed what we expected';
+is $result->error, undef, 'threw no exceptions' ;
+is $result->stderr, '', 'nothing sent to sderr' ;
+
 $result = test_app('Catmandu::CLI' => [ qw(version) ]);
 
 like $result->stdout , qr/version $Catmandu::VERSION/, 'printed what we expected';
 is $result->error, undef, 'threw no exceptions' ;
 is $result->stderr, '', 'nothing sent to sderr' ;
 
-done_testing 14;
+$result = test_app('Catmandu::CLI' => [ qw(--version) ]);
+
+like $result->stdout , qr/version $Catmandu::VERSION/, 'printed what we expected';
+is $result->error, undef, 'threw no exceptions' ;
+is $result->stderr, '', 'nothing sent to sderr' ;
+
+done_testing 20;
 

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