[p5sagit/p5-mst-13.2.git] / lib / CPANPLUS / t / 15_CPANPLUS-Shell.t

### make sure we can find our conf.pl file
BEGIN { 
    use FindBin; 
    require "$FindBin::Bin/inc/conf.pl";
}

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

use CPANPLUS::Internals::Constants;


my $Class = 'CPANPLUS::Shell';
my $Conf  = gimme_conf();

$Conf->set_conf( shell => SHELL_DEFAULT );

### basic load tests
use_ok( $Class );
is( $Class->which,  SHELL_DEFAULT,
                                "Default shell loaded" );
Commit	Line	Data
494f1016	1	### make sure we can find our conf.pl file
	2	BEGIN {
	3	use FindBin;
	4	require "$FindBin::Bin/inc/conf.pl";
	5	}
	6
	7	use strict;
	8	use Test::More 'no_plan';
	9
	10	use CPANPLUS::Internals::Constants;
	11
	12
	13	my $Class = 'CPANPLUS::Shell';
	14	my $Conf = gimme_conf();
	15
	16	$Conf->set_conf( shell => SHELL_DEFAULT );
	17
	18	### basic load tests
	19	use_ok( $Class );
	20	is( $Class->which, SHELL_DEFAULT,
	21	"Default shell loaded" );
	22