| Server IP : 164.138.27.172 / Your IP : 216.73.216.143 Web Server : nginx/1.27.4 System : Linux cookingdream 6.8.0-124-generic #124-Ubuntu SMP PREEMPT_DYNAMIC Tue May 26 13:00:45 UTC 2026 x86_64 User : www-adm ( 1001) PHP Version : 8.3.32 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : OFF Directory : /home/jonasn/.cpan/build/CPAN-2.34-0/t/ |
Upload File : |
use Test::More qw(no_plan);
my $class = 'App::Cpan';
my $method = '_stupid_interface_hack_for_non_rtfmers';
use_ok( $class );
can_ok( $class, $method );
@pairs = (
#before after
[ 'Nothing to nothing', [], [] ],
[ 'Starts with install, then nothing', [ qw(install) ], [qw(install)] ],
[ 'Starts with install, then module', [ qw(install Foo::Bar) ], [qw(Foo::Bar)] ],
[ 'Starts with -i, then install', [ qw(-i install) ], [ qw(-i install) ] ],
);
foreach my $pair ( @pairs ) {
local @ARGV = @{ $pair->[1] };
$class->$method;
is_deeply( \@ARGV, $pair->[2], $pair->[0] );
}