lib/CPANPLUS/t/15_CPANPLUS-Shell.t

   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