diff options
| -rw-r--r-- | MANIFEST | 1 | ||||
| -rw-r--r-- | lib/CPAN/t/Nox.t | 27 |
2 files changed, 28 insertions, 0 deletions
@@ -852,6 +852,7 @@ lib/constant.t See if compile-time constants work lib/CPAN.pm Interface to Comprehensive Perl Archive Network lib/CPAN/FirstTime.pm Utility for creating CPAN config files lib/CPAN/Nox.pm Runs CPAN while avoiding compiled extensions +lib/CPAN/t/Nox.t See if CPAN::Nox works lib/CPAN/t/loadme.t See if CPAN the module works lib/CPAN/t/vcmp.t See if CPAN the module works lib/ctime.pl A ctime workalike diff --git a/lib/CPAN/t/Nox.t b/lib/CPAN/t/Nox.t new file mode 100644 index 0000000000..3d5565b157 --- /dev/null +++ b/lib/CPAN/t/Nox.t @@ -0,0 +1,27 @@ +#!./perl + +BEGIN { + chdir 't' if -d 't'; + @INC = '../lib'; +} + +use Test::More tests => 8; + +# use this first to $CPAN::term can be undefined +use_ok( 'CPAN' ); +undef $CPAN::term; + +# this kicks off all the magic +use_ok( 'CPAN::Nox' ); + +# this will be set if $CPAN::term is undefined +is( $CPAN::Suppress_readline, 1, 'should set suppress readline flag' ); + +# all of these modules have XS components, should be marked unavailable +for my $mod (qw( Digest::MD5 LWP Compress::Zlib )) { + is( $CPAN::META->has_inst($mod), 0, "$mod should be marked unavailable" ); +} + +# and these will be set to those in CPAN +is( @CPAN::Nox::EXPORT, @CPAN::EXPORT, 'should export just what CPAN does' ); +is( \&CPAN::Nox::AUTOLOAD, \&CPAN::AUTOLOAD, 'AUTOLOAD should be aliased' ); |