Add Tests for CPAN::Nox

Message-Id: <20011007034754.21057.qmail@onion.perl.org>

p4raw-id: //depot/perl@12348

diff --git a/MANIFEST b/MANIFEST
index 652901c..f82c62d 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -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 (file)
index 0000000..3d5565b
--- /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' );