diff options
Diffstat (limited to 'script/mga_mirrors_test.pl')
-rwxr-xr-x | script/mga_mirrors_test.pl | 19 |
1 files changed, 3 insertions, 16 deletions
diff --git a/script/mga_mirrors_test.pl b/script/mga_mirrors_test.pl index d7e52d8..7229b7d 100755 --- a/script/mga_mirrors_test.pl +++ b/script/mga_mirrors_test.pl @@ -1,20 +1,7 @@ #!/usr/bin/env perl -use strict; -use warnings; -use Getopt::Long; -use Pod::Usage; -use FindBin; -use lib "$FindBin::Bin/../lib"; -use Catalyst::Test 'MGA::Mirrors'; - -my $help = 0; - -GetOptions( 'help|?' => \$help ); - -pod2usage(1) if ( $help || !$ARGV[0] ); - -print request($ARGV[0])->content . "\n"; +use Catalyst::ScriptRunner; +Catalyst::ScriptRunner->run('MGA::Mirrors', 'Test'); 1; @@ -27,7 +14,7 @@ mga_mirrors_test.pl - Catalyst Test mga_mirrors_test.pl [options] uri Options: - -help display this help and exits + --help display this help and exits Examples: mga_mirrors_test.pl http://localhost/some_action |