X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FScript%2FTest.pm;h=4209d62948a190cd232b316e0e9f3a4b274ed19f;hb=1d00b2ffb8806bd0a8190ee8580a85895e48f8e4;hp=1416bd40eaf331a03752eba97cb1a1b026c8ff98;hpb=95389116fd165c265f5b7be42e1eedde13f38181;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Script/Test.pm b/lib/Catalyst/Script/Test.pm index 1416bd4..4209d62 100644 --- a/lib/Catalyst/Script/Test.pm +++ b/lib/Catalyst/Script/Test.pm @@ -5,19 +5,19 @@ use namespace::autoclean; with 'Catalyst::ScriptRole'; -__PACKAGE__->meta->get_attribute('help')->cmd_aliases('h'); - sub run { my $self = shift; Catalyst::Test->import($self->application_name); - print request($ARGV[0])->content . "\n"; - + foreach my $arg (@{ $self->ARGV }) { + print request($arg)->content . "\n"; + } } __PACKAGE__->meta->make_immutable; +1; =head1 NAME @@ -25,11 +25,18 @@ Catalyst::Script::Test - Test Catalyst application on the command line =head1 SYNOPSIS -See L. + myapp_test.pl [options] /path + + Options: + -h --help display this help and exits =head1 DESCRIPTION -FIXME +Script to perform a test hit against your application and display the output. + +=head1 SEE ALSO + +L =head1 AUTHORS