my $host = '127.0.0.1'; # instead of localhost my $port = 24642 + int rand(1000);
and default host in Debug::Client->new should be 127.0.0.1 for win32 now t/10-top_tail.t (Wstat: 256 Tests: 5 Failed: 1) Failed test: 1 Non-zero exit status: 1 is failing ... not bad :) 2013/4/16 kevin dawson <ke...@dawson10.plus.com> > On 2013-04-16 16:25, kevin dawson wrote: > > On 2013-04-16 15:31, Ahmad Zawawi wrote: > >> IO::Socket::IP 0.20 is out and is now installable on win32 which is > great > >> https://metacpan.org/source/PEVANS/IO-Socket-IP-0.20/Changes > >> > >> Debug::Client 0.24 is now stuck after installing it on t/05-io.t on > >> windows 7 > >> > >> C:\Users\azawawi\.cpanm\work\1366122552.3880\Debug-Client-0.24>prove -bv > >> t\01-compile.t ........ > >> 1..14 > >> ok 1 - use Debug::Client; > >> ok 2 - use t::lib::Debugger; > >> ok 3 - use Carp; > >> ok 4 - use IO::Socket::IP; > >> ok 5 - use PadWalker; > >> ok 6 - use Term::ReadLine; > >> ok 7 - use Term::ReadLine::Perl; > >> ok 8 - use File::HomeDir; > >> ok 9 - use File::Spec; > >> ok 10 - use File::Temp; > >> ok 11 - use Test::Class; > >> ok 12 - use Test::Deep; > >> ok 13 - use Test::More; > >> # Info: Testing Debug::Client 0.24 > >> ok 14 - use Time::HiRes;# Info: Perl v5.16.3 > >> > >> ok > >> t\02-exports.t ........ > >> 1..29 > >> ok 1 - use Debug::Client; > >> ok 2 - Debug::Client->can('get_buffer') > >> ok 3 - Debug::Client->can('get_filename') > >> ok 4 - Debug::Client->can('get') > >> ok 5 - Debug::Client->can('get_h_var') > >> ok 6 - Debug::Client->can('get_lineinfo') > >> ok 7 - Debug::Client->can('get_options') > >> ok 8 - Debug::Client->can('get_p_exp') > >> ok 9 - Debug::Client->can('get_stack_trace') > >> ok 10 - Debug::Client->can('get_v_vars') > >> ok 11 - Debug::Client->can('get_value') > >> ok 12 - Debug::Client->can('get_x_vars') > >> ok 13 - Debug::Client->can('get_y_zero') > >> ok 14 - Debug::Client->can('list_subroutine_names') > >> ok 15 - Debug::Client->can('module') > >> ok 16 - Debug::Client->can('new') > >> ok 17 - Debug::Client->can('quit') > >> ok 18 - Debug::Client->can('remove_breakpoint') > >> ok 19 - Debug::Client->can('get_row') > >> ok 20 - Debug::Client->can('run') > >> ok 21 - Debug::Client->can('set_breakpoint') > >> ok 22 - Debug::Client->can('set_option') > >> ok 23 - Debug::Client->can('show_breakpoints') > >> ok 24 - Debug::Client->can('show_line') > >> ok 25 - Debug::Client->can('show_view') > >> ok 26 - Debug::Client->can('show_line') > >> ok 27 - Debug::Client->can('step_in') > >> ok 28 - Debug::Client->can('step_over') > >> ok 29 - Debug::Client->can('toggle_trace') > >> ok > >> t\03-pod.t ............ > >> 1..0 # SKIP Test::Pod 1.45 required for testing POD > >> skipped: Test::Pod 1.45 required for testing POD > >> t\04-pod-coverage.t ... > >> 1..0 # SKIP Test::Pod::Coverage 1.08 required for testing POD coverage > >> skipped: Test::Pod::Coverage 1.08 required for testing POD coverage > >> t\05-io.t ............. > >> 1..11 > >> > >> > > Ahmad on the ball :) > > > > it's only been out for 4 hours > > > > can you show the output of > > > > perl -MCarp::Always -Ilib t\05-io.t > > > > please > > > > also > > > > dmake test > > > > please > > > > regards > > kevin > > > > _______________________________________________ > > Padre-dev mailing list > > Padre-dev@perlide.org > > http://mail.perlide.org/mailman/listinfo/padre-dev > > > I have given Debug-Client a tweak or two > > http://cpan.metacpan.org/authors/id/B/BO/BOWTIE/Debug-Client-0.24_01.tar.gz > > please test > > regards > kevin > > _______________________________________________ > Padre-dev mailing list > Padre-dev@perlide.org > http://mail.perlide.org/mailman/listinfo/padre-dev >
_______________________________________________ Padre-dev mailing list Padre-dev@perlide.org http://mail.perlide.org/mailman/listinfo/padre-dev
