All tests pass. Low-hanging fruit.
Should I send a copy to Andreas König as well?
-- c
--- ~MANIFEST Sat Oct 6 21:17:21 2001
+++ MANIFEST Sat Oct 6 21:29:34 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
--- /dev/null Thu Aug 30 03:54:37 2001
+++ lib/CPAN/t/Nox.t Sat Oct 6 20:37:45 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' );
