commit 6ba6cf2a732931929b3f5c6ac0a5dfded6d0c7e8
Author: Petr Sabata <[email protected]>
Date: Mon Jan 3 16:31:57 2011 +0100
t/02_main.t removal patch
CPAN-Inject-1.12-remove-02_main-test.patch | 149 ++++++++++++++++++++++++++++
1 files changed, 149 insertions(+), 0 deletions(-)
---
diff --git a/CPAN-Inject-1.12-remove-02_main-test.patch
b/CPAN-Inject-1.12-remove-02_main-test.patch
new file mode 100644
index 0000000..82214b0
--- /dev/null
+++ b/CPAN-Inject-1.12-remove-02_main-test.patch
@@ -0,0 +1,149 @@
+--- CPAN-Inject-1.12/t/02_main.t 2010-12-17 16:08:05.000000000 +0100
++++ /dev/null 2011-01-03 07:58:11.146000002 +0100
+@@ -1,146 +0,0 @@
+-#!/usr/bin/perl
+-
+-# Main testing for CPAN::Inject
+-
+-use strict;
+-BEGIN {
+- $| = 1;
+- $^W = 1;
+-}
+-
+-use Test::More tests => 24;
+-use File::Spec::Functions ':ALL';
+-use File::Remove 'remove';
+-use CPAN::Inject;
+-
+-# Create a testing root directory
+-my $sources = catdir('t', 'sources');
+- if ( -e $sources ) { remove( \1, $sources ) }
+-END { if ( -e $sources ) { remove( \1, $sources ) } }
+-ok( ! -e $sources, 'No existing sources directory' );
+-mkdir $sources;
+-ok( -e $sources, 'Created sources directory' );
+-
+-
+-
+-
+-
+-#####################################################################
+-# Constructor, Accessors, and Basic Methods
+-
+-SCOPE: {
+- my $cpan = CPAN::Inject->new(
+- sources => $sources,
+- );
+- isa_ok( $cpan, 'CPAN::Inject' );
+- is( $cpan->sources, $sources, '->sources ok' );
+- is( $cpan->author, 'LOCAL', '->author ok' );
+- is(
+- $cpan->author_subpath,
+- catdir('authors', 'id', 'L', 'LO', 'LOCAL' ),
+- '->author_subpath ok',
+- );
+- is(
+- $cpan->author_path,
+- catdir($sources, 'authors', 'id', 'L', 'LO', 'LOCAL' ),
+- '->author_path ok',
+- );
+- is(
+- $cpan->install_path('Perl-Tarball-1.00.tar.gz'),
+- 'LOCAL/Perl-Tarball-1.00.tar.gz',
+- '->install_path ok',
+- );
+- is(
+- $cpan->install_path(
+- catfile('foo', 'bar', 'Perl-Tarball-1.00.tar.gz'),
+- ),
+- 'LOCAL/Perl-Tarball-1.00.tar.gz',
+- '->install_path ok',
+- );
+-}
+-
+-SCOPE: {
+- my $cpan = CPAN::Inject->new(
+- sources => $sources,
+- author => 'ADAMK',
+- );
+- isa_ok( $cpan, 'CPAN::Inject' );
+- is( $cpan->sources, $sources, '->sources ok' );
+- is( $cpan->author, 'ADAMK', '->author ok' );
+-}
+-
+-SCOPE: {
+- my $cpan = eval {
+- CPAN::Inject->from_cpan_config(
+- author => 'ADAMK',
+- );
+- };
+- SKIP: {
+- skip( "Current user owns CPAN::Config", 1 ) unless $@;
+- like($@,
+- qr/(The directory .* does not exist|The sources
directory is not owned by the current user)/,
+- 'Got expected error',
+- );
+- }
+- SKIP: {
+- skip( "Current user does not own CPAN::Config", 2 ) if $@;
+- isa_ok( $cpan, 'CPAN::Inject' );
+- is( $cpan->author, 'ADAMK', '->author ok' );
+- }
+-}
+-
+-
+-
+-
+-
+-#####################################################################
+-# Add a distribution
+-
+-SCOPE: {
+- my $cpan = CPAN::Inject->new(
+- sources => $sources,
+- );
+- isa_ok( $cpan, 'CPAN::Inject' );
+-
+- # Add the distribution
+- my $dist = catfile( 't', 'data', 'Config-Tiny-2.09.tar.gz' );
+- ok( -f $dist, 'Test distribution exists' );
+- is(
+- $cpan->add( file => $dist ),
+- 'LOCAL/Config-Tiny-2.09.tar.gz',
+- '->add ok',
+- );
+- my $author = catdir($sources, 'authors', 'id', 'L', 'LO', 'LOCAL');
+- ok( -d $author, 'Created LOCAL base directory' );
+- ok(
+- -f catfile($author, 'Config-Tiny-2.09.tar.gz'),
+- 'Copied distribution to the correct destination',
+- );
+- ok(
+- -f catfile($author, 'CHECKSUMS'),
+- 'Created CHECKSUMS file',
+- );
+-}
+-
+-#####################################################################
+-# Remove a distribution
+-
+-SCOPE: {
+- my $cpan = CPAN::Inject->new(
+- sources => $sources,
+- );
+- isa_ok( $cpan, 'CPAN::Inject' );
+-
+- # Remove the distribution
+- ok(
+- eval { $cpan->remove( dist => 'LOCAL/Config-Tiny-2.09.tar.gz'
); 1 },
+- '->remove ok',
+- );
+- my $author = catdir($sources, 'authors', 'id', 'L', 'LO', 'LOCAL');
+- ok(
+- ! -f catfile($author, 'Config-Tiny-2.09.tar.gz'),
+- 'Removed distribution file',
+- );
+-}
+-
+-1;
--
Fedora Extras Perl SIG
http://www.fedoraproject.org/wiki/Extras/SIGs/Perl
perl-devel mailing list
[email protected]
https://admin.fedoraproject.org/mailman/listinfo/perl-devel
