And $pid is undef for win32, hence this will fail in t/10-top_tail.t. Fix
that and we're done :)
ok( start_script('t/eg/14-y_zero.pl'), 'start script' );
Done :)
2013/4/16 Ahmad Zawawi <ahmad.zaw...@gmail.com>
>
>
> 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
