diff options
author | Olivier Thauvin <nanardon@mageia.org> | 2010-10-03 17:10:31 +0000 |
---|---|---|
committer | Olivier Thauvin <nanardon@mageia.org> | 2010-10-03 17:10:31 +0000 |
commit | e3f4756a2b901d1f1a6e8514d3b01dbf30a7c89b (patch) | |
tree | 483c6c7233ec9fda8e85fc677a7195d3175f569d /script/mga_mirrors_test.pl | |
parent | beb039f2c2aea1a18363f57e789a3dc84238e5de (diff) | |
download | mgamirrors-e3f4756a2b901d1f1a6e8514d3b01dbf30a7c89b.tar mgamirrors-e3f4756a2b901d1f1a6e8514d3b01dbf30a7c89b.tar.gz mgamirrors-e3f4756a2b901d1f1a6e8514d3b01dbf30a7c89b.tar.bz2 mgamirrors-e3f4756a2b901d1f1a6e8514d3b01dbf30a7c89b.tar.xz mgamirrors-e3f4756a2b901d1f1a6e8514d3b01dbf30a7c89b.zip |
- use old script
Diffstat (limited to 'script/mga_mirrors_test.pl')
-rwxr-xr-x | script/mga_mirrors_test.pl | 19 |
1 files changed, 16 insertions, 3 deletions
diff --git a/script/mga_mirrors_test.pl b/script/mga_mirrors_test.pl index 7229b7d..d7e52d8 100755 --- a/script/mga_mirrors_test.pl +++ b/script/mga_mirrors_test.pl @@ -1,7 +1,20 @@ #!/usr/bin/env perl -use Catalyst::ScriptRunner; -Catalyst::ScriptRunner->run('MGA::Mirrors', 'Test'); +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"; 1; @@ -14,7 +27,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 |