ARGV-URL

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

Revision 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.

LICENSE  view on Meta::CPAN

OUT 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
possible use to humanity, the best way to achieve this is to make it
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

    "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

    );

    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

BEGIN {
    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";

t/90-pod.t  view on Meta::CPAN

# 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

#!perl
use strict;
use warnings;
use Test::More skip_all => "this test is here only for raising Kwalitee";

eval "use Test::Pod::Coverage 1.00";
plan skip_all => "Test::Pod::Coverage 1.00 required" if $@;
all_pod_coverage_ok();

t/release-kwalitee.t  view on Meta::CPAN

#!perl

BEGIN {
  unless ($ENV{RELEASE_TESTING}) {
    require Test::More;
    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;
use Test::More;   # needed to provide plan.
eval "use Test::Kwalitee";

plan skip_all => "Test::Kwalitee required for testing kwalitee" if $@;