Change 12348 by ams@ams-lustre on 2001/10/07 05:33:40
Subject: [PATCH MANIFEST lib/CPAN/t/Nox.t] Add Tests for CPAN::Nox
From: "chromatic" <[EMAIL PROTECTED]>
Date: Sat, 06 Oct 2001 21:42:03 -0600
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/MANIFEST#584 edit
... //depot/perl/lib/CPAN/t/Nox.t#1 add
Differences ...
==== //depot/perl/MANIFEST#584 (text) ====
Index: perl/MANIFEST
--- perl/MANIFEST.~1~ Sat Oct 6 23:45:06 2001
+++ perl/MANIFEST Sat Oct 6 23:45:06 2001
@@ -852,6 +852,7 @@
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
==== //depot/perl/lib/CPAN/t/Nox.t#1 (text) ====
Index: perl/lib/CPAN/t/Nox.t
--- perl/lib/CPAN/t/Nox.t.~1~ Sat Oct 6 23:45:06 2001
+++ perl/lib/CPAN/t/Nox.t Sat Oct 6 23:45:06 2001
@@ -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' );
End of Patch.
