X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FScript%2FTest.pm;h=36934b2931b6c0087b568e7cb8a4319bd99cfdfc;hb=07b56dc9ccb03a4fdd4cfe017cfc42359fe51529;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..36934b2 100644 --- a/lib/Catalyst/Script/Test.pm +++ b/lib/Catalyst/Script/Test.pm @@ -5,15 +5,14 @@ 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"; + } } @@ -25,11 +24,14 @@ 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 AUTHORS