#!/usr/bin/perl

use Test::More '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] );
	}