[libcatmandu-perl] 17/101: Adding more tests to info

[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 b2616b1e618838c0d9322a29d9b4c466988001b9
Author: Patrick Hochstenbach <patrick.hochstenbach at ugent.be>
Date:   Fri Dec 11 10:31:58 2015 +0100

    Adding more tests to info
---
 t/Catmandu-Cmd-info.t | 22 ++++++++++++++++++++--
 1 file changed, 20 insertions(+), 2 deletions(-)

diff --git a/t/Catmandu-Cmd-info.t b/t/Catmandu-Cmd-info.t
index ae9ced2..02f076a 100644
--- a/t/Catmandu-Cmd-info.t
+++ b/t/Catmandu-Cmd-info.t
@@ -15,8 +15,26 @@ require_ok $pkg;
 
 use Catmandu::CLI;
 
-my $result = test_app(qq|Catmandu::CLI| => [ qw(info) ]);
+my $result;
+
+$result = test_app(qq|Catmandu::CLI| => [ qw(info) ]);
+
+is $result->error, undef, 'threw no exceptions' ;
+
+$result = test_app(qq|Catmandu::CLI| => [ qw(info --exporters) ]);
+
+is $result->error, undef, 'threw no exceptions' ;
+
+$result = test_app(qq|Catmandu::CLI| => [ qw(info --importers) ]);
+
+is $result->error, undef, 'threw no exceptions' ;
+
+$result = test_app(qq|Catmandu::CLI| => [ qw(info --fixes) ]);
+
+is $result->error, undef, 'threw no exceptions' ;
+
+$result = test_app(qq|Catmandu::CLI| => [ qw(info --stores) ]);
 
 is $result->error, undef, 'threw no exceptions' ;
 
-done_testing 3;
\ No newline at end of file
+done_testing 7;
\ 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