From: chromatic <chromatic@wgz.org>
Date: Sat, 6 Oct 2001 21:42:03 +0000 (-0600)
Subject: Add Tests for CPAN::Nox
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=149e698571d538389632b17001d47e502cc5be50;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
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' );