app::cmd::tester(3pm) [debian man page]

App::Cmd::Tester(3pm)					User Contributed Perl Documentation				     App::Cmd::Tester(3pm)

NAME

       App::Cmd::Tester - for capturing the result of running an app

VERSION

       version 0.318

SYNOPSIS

	 use Test::More tests => 4;
	 use App::Cmd::Tester;

	 use YourApp;

	 my $result = test_app(YourApp => [ qw(command --opt value) ]);

	 like($result->stdout, qr/expected output/, 'printed what we expected');

	 is($result->stderr, '', 'nothing sent to sderr');

	 is($result->error, undef, 'threw no exceptions');

	 my $result = test_app(YourApp => [ qw(command --opt value --quiet) ]);

	 is($result->output, '', 'absolutely no output with --quiet');

DESCRIPTION

       One of the reasons that user-executed programs are so often poorly tested is that they are hard to test.  App::Cmd::Tester is one of the
       tools App-Cmd provides to help make it easy to test App::Cmd-based programs.

       It provides one routine: test_app.

METHODS

   test_app
       Note: while "test_app" is a method, it is by default exported as a subroutine into the namespace that uses App::Cmd::Tester.  In other
       words: you probably don't need to think about this as a method unless you want to subclass App::Cmd::Tester.

	 my $result = test_app($app_class => @argv_contents);

       This will locally set @ARGV to simulate command line arguments, and will then call the "run" method on the given application class (or
       application).  Output to the standard output and standard error filehandles  will be captured.

       $result is an App::Cmd::Tester::Result object, which has methods to access the following data:

	 stdout - the output sent to stdout
	 stderr - the output sent to stderr
	 output - the combined output of stdout and stderr
	 error	- the exception thrown by running the application, or undef
	 run_rv - the return value of the run method (generally irrelevant)
	 exit_code - the numeric exit code that would've been issued (0 is 'okay')

AUTHOR

       Ricardo Signes <rjbs@cpan.org>

COPYRIGHT AND LICENSE

       This software is copyright (c) 2012 by Ricardo Signes.

       This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.

perl v5.14.2							    2012-05-05						     App::Cmd::Tester(3pm)

App::Cmd::Simple(3pm)					User Contributed Perl Documentation				     App::Cmd::Simple(3pm)

NAME

       App::Cmd::Simple - a helper for building one-command App::Cmd applications

VERSION

       version 0.318

SYNOPSIS

       in simplecmd:

	 use YourApp::Cmd;
	 Your::Cmd->run;

       in YourApp/Cmd.pm:

	 package YourApp::Cmd;
	 use base qw(App::Cmd::Simple);

	 sub opt_spec {
	   return (
	     [ "blortex|X",  "use the blortex algorithm" ],
	     [ "recheck|r",  "recheck all results"	 ],
	   );
	 }

	 sub validate_args {
	   my ($self, $opt, $args) = @_;

	   # no args allowed but options!
	   $self->usage_error("No args allowed") if @$args;
	 }

	 sub execute {
	   my ($self, $opt, $args) = @_;

	   my $result = $opt->{blortex} ? blortex() : blort();

	   recheck($result) if $opt->{recheck};

	   print $result;
	 }

       and, finally, at the command line:

	 knight!rjbs$ simplecmd --recheck

	 All blorts successful.

SUBCLASSING

       When writing a subclass of App::Cmd:Simple, there are only a few methods that you might want to implement.  They behave just like the same-
       named methods in App::Cmd.

   opt_spec
       This method should be overridden to provide option specifications.  (This is list of arguments passed to "describe_options" from
       Getopt::Long::Descriptive, after the first.)

       If not overridden, it returns an empty list.

   validate_args
	 $cmd->validate_args(\%opt, @args);

       This method is passed a hashref of command line options (as processed by Getopt::Long::Descriptive) and an arrayref of leftover arguments.
       It may throw an exception (preferably by calling "usage_error") if they are invalid, or it may do nothing to allow processing to continue.

   execute
	 Your::App::Cmd::Simple->execute(\%opt, @args);

       This method does whatever it is the command should do!  It is passed a hash reference of the parsed command-line options and an array
       reference of left over arguments.

WARNINGS

       This should be considered experimental!	Although it is probably not going to change much, don't build your business model around it yet,
       okay?

       App::Cmd::Simple is not rich in black magic, but it does do some somewhat gnarly things to make an App::Cmd::Simple look as much like an
       App::Cmd::Command as possible.  This means that you can't deviate too much from the sort of thing shown in the synopsis as you might like.
       If you're doing something other than writing a fairly simple command, and you want to screw around with the App::Cmd-iness of your program,
       Simple might not be the best choice.

       One specific warning...	if you are writing a program with the App::Cmd::Simple class embedded in it, you must call import on the class.
       That's how things work.	You can just do this:

	 YourApp::Cmd->import->run;

AUTHOR

       Ricardo Signes <rjbs@cpan.org>

COPYRIGHT AND LICENSE

       This software is copyright (c) 2012 by Ricardo Signes.

       This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.

perl v5.14.2							    2012-05-05						     App::Cmd::Simple(3pm)