1N/A#!./perl
1N/A
1N/Ause lib "BUNDLE";
1N/Ause Test::More tests => 8;
1N/A
1N/A# use this first to $CPAN::term can be undefined
1N/Ause_ok( 'CPAN' );
1N/A$CPAN::Suppress_readline = $CPAN::Suppress_readline; # silence
1N/A$CPAN::META = $CPAN::META; # silence
1N/A$CPAN::term = $CPAN::term; # silence
1N/Aundef $CPAN::term;
1N/A
1N/A# this kicks off all the magic
1N/Ause_ok( 'CPAN::Nox' );
1N/A
1N/A# this will be set if $CPAN::term is undefined
1N/Ais( $CPAN::Suppress_readline, 1, 'should set suppress readline flag' );
1N/A
1N/A# all of these modules have XS components, should be marked unavailable
1N/Afor my $mod (qw( Digest::MD5 LWP Compress::Zlib )) {
1N/A is( $CPAN::META->has_inst($mod), 0, "$mod should be marked unavailable" );
1N/A}
1N/A
1N/A# and these will be set to those in CPAN
1N/Ais( @CPAN::Nox::EXPORT, @CPAN::EXPORT, 'should export just what CPAN does' );
1N/Ais( \&CPAN::Nox::AUTOLOAD, \&CPAN::AUTOLOAD, 'AUTOLOAD should be aliased' );