Sophie

Sophie

distrib > Fedora > 13 > i386 > by-pkgid > 0370519d7fbbbf1fc6be2552b56ec082 > files > 4

perl-CPANPLUS-Shell-Default-Plugins-Diff-0.01-5.fc13.noarch.rpm

BEGIN {
    chdir 't' if -d 't';
    use lib '../lib';
}

use strict;
use Test::More 'no_plan';

my $Class   = 'CPANPLUS::Shell::Default::Plugins::Diff';
my $List    = 'plugins';

use_ok( $Class );
can_ok( $Class, $List );

### check methods existence
{   my %map = $Class->$List;
    isa_ok( \%map, 'HASH' );
    
    for my $meth ( values %map ) {
        can_ok( $Class, $meth );
        can_ok( $Class, $meth . '_help' );
    }
}