ARGV-URL
view release on metacpan or search on metacpan
123456789101112131415161718Revision history
for
ARGV::URL.
0.93 2011-11-09 DOLMEN (Olivier Mengué)
Add tests, just
for
Kwalitee.
More DZ
plugins
=> META.json, perl prereq
Add an example: examples/sherlock.pl
0.92 2011-09-04 DOLMEN (Olivier Mengué)
Add tests.
Fixes a minor POD error.
0.91 2011-08-12 DOLMEN (Olivier Mengué)
Fixing mistakes of a release late in the night:
- missing
$VERSION
- missing Github meta
0.90 2011-08-12 DOLMEN (Olivier Mengué)
Initial release. No tests yet.
205206207208209210211212213214215216217218219220221222223224225OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.
END OF TERMS AND CONDITIONS
Appendix: How to Apply These Terms to Your New Programs
If you develop a new program, and you want it to be of the greatest
free software which everyone can redistribute and change under these
terms.
To
do
so, attach the following notices to the program. It is safest to
attach them to the start of
each
source file to most effectively convey
the exclusion of warranty; and
each
file should have at least the
"copyright"
line and a pointer to where the full notice is found.
<one line to give the program's name and a brief idea of what it does.>
Makefile.PL view on Meta::CPAN
161718192021222324252627282930313233343536
"ExtUtils::MakeMaker"
=>
"6.30"
},
"DISTNAME"
=>
"ARGV-URL"
,
"EXE_FILES"
=> [],
"LICENSE"
=>
"perl"
,
"NAME"
=>
"ARGV::URL"
,
"PREREQ_PM"
=> {
"LWP"
=> 5
},
"VERSION"
=>
"0.93"
,
"test"
=> {
"TESTS"
=>
"t/*.t"
}
);
unless
(
eval
{ ExtUtils::MakeMaker->VERSION(6.56) } ) {
my
$br
=
delete
$WriteMakefileArgs
{BUILD_REQUIRES};
my
$pp
=
$WriteMakefileArgs
{PREREQ_PM};
for
my
$mod
(
keys
%$br
) {
if
(
exists
$pp
->{
$mod
} ) {
t/00-compile.t view on Meta::CPAN
4546474849505152535455565758596061626364656667686970717273
);
return
@found_scripts
;
}
my
@scripts
;
do
{
push
@scripts
, _find_scripts(
$_
)
if
-d
$_
}
for
qw{ bin script scripts }
;
my
$plan
=
scalar
(
@modules
) +
scalar
(
@scripts
);
$plan
? (plan
tests
=>
$plan
) : (plan
skip_all
=>
"no tests to run"
);
{
# fake home for cpan-testers
# no fake requested ## local $ENV{HOME} = tempdir( CLEANUP => 1 );
like(
qx{ $^X -Ilib -e "require $_; print '$_ ok'" }
,
qr/^\s*$_ ok/
s,
"$_ loaded ok"
)
for
sort
@modules
;
SKIP: {
eval
"use Test::Script 1.05; 1;"
;
skip
"Test::Script needed to test script compilation"
,
scalar
(
@scripts
)
if
$@;
foreach
my
$file
(
@scripts
) {
my
$script
=
$file
;
$script
=~ s!.*/!!;
script_compiles(
$file
,
"$script script compiles"
);
}
}
}
t/01-basic.t view on Meta::CPAN
5678910111213141516171819202122232425BEGIN {
eval
'require URI::file;'
;
plan
skip_all
=>
'URI::file module not available'
if
$@;
eval
'require File::Spec;'
;
plan
skip_all
=>
'File::Spec module not available'
if
$@;
}
use
ARGV::URL ();
plan
tests
=> 6;
my
@a
=
@ARGV
= ( URI::file->new(File::Spec->rel2abs(__FILE__)) );
like
$ARGV
[0],
qr|\Afile://|
,
"\$ARGV[0] is a file:// URL"
;
ARGV::URL->
import
;
is
scalar
(
@ARGV
), 1,
"Array size preserved"
;
isnt
$ARGV
[0],
$a
[0],
"\$ARGV[0] has been modified"
;
like
$ARGV
[0],
qr|file://|
,
"\$ARGV[0] still contains a file:// URL"
;
like
$ARGV
[0],
qr/|\z/
,
"Is a pipe"
;
12345678910# This test is only for raising Kwalitee
# because testing POD is done with Module::Build using "Build testpod".
use
strict;
use
warnings;
use
Test::More;
plan
skip_all
=>
"POD testing is only for release testing"
unless
$ENV
{RELEASE_TESTING};
eval
"use Test::Pod 1.00"
;
plan
skip_all
=>
"Test::Pod 1.00 required for testing POD"
if
$@;
all_pod_files_ok();
t/91-pod-coverage.t view on Meta::CPAN
t/release-kwalitee.t view on Meta::CPAN
1234567891011121314151617#!perl
BEGIN {
unless
(
$ENV
{RELEASE_TESTING}) {
Test::More::plan(
skip_all
=>
'these tests are for release candidate testing'
);
}
}
# This test is generated by Dist::Zilla::Plugin::Test::Kwalitee
use
strict;
use
warnings;
eval
"use Test::Kwalitee"
;
plan
skip_all
=>
"Test::Kwalitee required for testing kwalitee"
if
$@;
( run in 0.284 second using v1.01-cache-2.11-cpan-454fe037f31 )