| Subject: | t/30shell fails |
t/30shell.........1..63
ok 1 - use Digest::SHA;
ok 2 - use Term::ReadKey;
ok 3 - use Term::ReadLine;
ok 4 - use Text::Glob;
ok 5 - histsize is 100
# GOT:
# cpan shell -- CPAN exploration and modules installation (v1.85)
# ReadLine support enabled
#
# cpan>
ok 6 - empty test
# NEXT: o conf build_cache
# EXPECT: build_cache(?s:.*cpan[^>]*>)
# GOT: o conf build_cache
# build_cache [100]
#
# cpan>
ok 7 - o conf build_cache
# NEXT: o conf init
# EXPECT: initialized(?s:.*manual.*configuration.*\])
# GOT: o conf init
#
# /root/.cpan/build/CPAN-1.85/t/CPAN/MyConfig.pm initialized.
#
#
# CPAN is the world-wide archive of perl resources. It consists of about
# 100 sites that all replicate the same contents all around the globe.
# Many countries have at least one CPAN site already. The resources
# found on CPAN are easily accessible with the CPAN.pm module. If you
# want to use CPAN.pm, you have to configure it properly.
#
# If you do not want to enter a dialog now, you can answer 'no' to this
# question and I'll try to autoconfigure. (Note: you can revisit this
# dialog anytime later by typing 'o conf init' at the cpan prompt.)
#
# Are you ready for manual configuration? [yes]
ok 8 - o conf init
# NEXT: nothanks
# EXPECT: wrote(?s:.*cpan[^>]*>)
# GOT: nothanks
#
#
# The following questions are intended to help you with the
# configuration. The CPAN module needs a directory of its own to cache
# important index files and maybe keep a temporary mirror of CPAN files.
# This may be a site-wide directory or a personal directory.
#
#
#
# I see you already have a directory
# /root/.cpan
# Shall we use it as the general CPAN build and cache directory?
#
# CPAN build and cache directory? [/root/.cpan]
[ ... followed by normal CPAN config questions ...]
# cpan>
ok 9 - nothanks
# NEXT: # o debug all
# EXPECT: (?s:.*cpan[^>]*>)
# GOT: # o debug all
# Unknown shell command '#'. Type ? for help.
#
# cpan>
ok 10 - \# o debug all
# NEXT: o conf histsize 101
# EXPECT: . histsize.+101(?s:.*cpan[^>]*>)
# GOT: o conf histsize 101
# histsize [101]
#
# cpan>
ok 11 - o conf histsize 101
# NEXT: o conf commit
# EXPECT: wrote(?s:.*cpan[^>]*>)
# GOT: o conf commit
# commit: wrote '/root/.cpan/build/CPAN-1.85/t/CPAN/MyConfig.pm'
#
# cpan>
ok 12 - o conf commit
# NEXT: o conf histsize 102
# EXPECT: . histsize.+102(?s:.*cpan[^>]*>)
# GOT: o conf histsize 102
# histsize [102]
#
# cpan>
ok 13 - o conf histsize 102
# NEXT: o conf defaults
# EXPECT: (?s:.*cpan[^>]*>)
# GOT: o conf defaults
#
# cpan>
ok 14 - o conf defaults
# NEXT: o conf histsize
# EXPECT: histsize.+101(?s:.*cpan[^>]*>)
# GOT: o conf histsize
# histsize [101]
#
# cpan>
ok 15 - o conf histsize
# NEXT: o conf urllist
# EXPECT: file:///.*CPAN(?s:.*cpan[^>]*>)
# timed out on i[10]prog[o conf urllist]
# expected[file:///.*CPAN(?s:.*cpan[^>]*>)]
# got[o conf urllist
# urllist
# [file:///home/slanning/perl/cpan]
# Type 'o conf' to view all configuration items
#
#
# cpan> ]
#
# Looks like you planned 63 tests but only ran 15.
dubious
Test returned status 255 (wstat 65280, 0xff00)
DIED. FAILED tests 16-63
Failed 48/63 tests, 23.81% okay