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.hochstenb...@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 _______________________________________________ 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