Changeset 9680


Ignore:
Timestamp:
12/14/09 01:26:37 (2 years ago)
Author:
szabgab
Message:

[Debug::Client] prompt is now returned as the first value

Location:
trunk/Debug-Client
Files:
15 edited

Legend:

Unmodified
Added
Removed

  • trunk/Debug-Client/Changes

    r9669 r9680  
     1v0.06 
     2    Prompt is now the first return paramter 
     3    Added more tests 
     4    Added more documentation 
     5     
    16v0.05 2009.12.13 
    27    Try to eliminate infinite loop 

  • trunk/Debug-Client/lib/Debug/Client.pm

    r9676 r9680  
    3131 
    3232 
    33   my ($module, $file, $row, $content, $prompt) = $debugger->step_in; 
    34   my ($module, $file, $row, $content, $prompt, $return_value) = $debugger->step_out; 
    35   my ($value, $prompt) = $debugger->get_value('$x'); 
     33  my ($prompt, $module, $file, $row, $content) = $debugger->step_in; 
     34  my ($prompt, $module, $file, $row, $content, $return_value) = $debugger->step_out; 
     35  my ($prompt, $value) = $debugger->get_value('$x'); 
    3636 
    3737  $debugger->run();         # run till end of breakpoint or watch 
    … …  
    4343  $debugger->execute_code( '@name = qw(foo bar)' ); 
    4444 
    45   my ($value, $prompt) = $debugger->get_value('@name');  $value is the dumped data? 
     45  my ($prompt, $value) = $debugger->get_value('@name');  $value is the dumped data? 
    4646 
    4747  $debugger->execute_code( '%phone_book = (foo => 123, bar => 456)' ); 
    4848 
    49   my ($value, $prompt) = $debugger->get_value('%phone_book');  $value is the dumped data? 
     49  my ($prompt, $value) = $debugger->get_value('%phone_book');  $value is the dumped data? 
    5050   
    5151   
    … …  
    7070=cut 
    7171 
    72  
     72=head2 new 
     73 
     74The constructor can get two parameters: host and port. 
     75 
     76  my $d = Debug::Client->new; 
     77 
     78  my $d = Debug::Client->new(host => 'remote.hots.com', port => 4242); 
     79    
     80Immediately after the object creation one needs to call 
     81 
     82  $d->listen; 
     83   
     84TODO: Is there any reason to separate the two? 
     85 
     86=cut 
    7387 
    7488sub new { 
    … …  
    93107} 
    94108 
     109=head2 listen 
     110 
     111See C<new> 
     112 
     113=cut 
     114 
    95115sub listen { 
    96116    my ($self) = @_; 
    97117 
    98118    $self->{new_sock} = $self->{sock}->accept(); 
     119 
    99120    return; 
    100  
    101121} 
    102122 
    103123=head2 buffer 
    104124 
    105 return the content of the buffer since the last command 
     125Returns the content of the buffer since the last command 
    106126 
    107127  $debugger->buffer; 
    … …  
    145165sub step_out  {  
    146166    my ($self) = @_; 
     167 
    147168    $self->_send('r'); 
    148169    my $buf = $self->_get; 
    … …  
    170191            # TODO can we parse this inteligently in the general case? 
    171192        #} 
    172         return (@line, $prompt, $ret); 
     193        return ($prompt, @line, $ret); 
    173194    } else { 
    174195        return $buf; 
    … …  
    188209    if (wantarray) { 
    189210        my $prompt = _prompt(\$buf); 
    190         return($buf, $prompt); 
     211        return($prompt, $buf); 
    191212    } else { 
    192213        return $buf; 
    … …  
    195216 
    196217=head2 run 
     218 
     219  $d->run; 
     220   
     221Will run till the next breakpoint or watch or the end of 
     222the script. (Like pressing c in the debugger). 
     223 
     224  $d->run($param) 
     225 
    197226 
    198227=cut 
    … …  
    209238=head2 set_breakpoint 
    210239 
     240 $d->set_breakpoint($file, $line, $condition); 
     241 
    211242=cut 
    212243 
    … …  
    223254    if (wantarray) { 
    224255        my $prompt = _prompt(\$buf); 
    225         return($buf, $prompt); 
     256        return($prompt, $buf); 
    226257    } else { 
    227258        return $buf; 
    … …  
    240271    if (wantarray) { 
    241272       my $prompt = _prompt(\$buf); 
    242        return ($buf, $prompt); 
     273       return ($prompt, $buf); 
    243274    } else { 
    244275       return $buf; 
    … …  
    261292        if (wantarray) { 
    262293            my $prompt = _prompt(\$buf); 
    263             return ($buf, $prompt); 
     294            return ($prompt, $buf); 
    264295        } else { 
    265296            return $buf 
    … …  
    271302            my $prompt = _prompt(\$buf); 
    272303            my $data_ref = _parse_dumper($buf); 
    273             return ($data_ref, $prompt); 
     304            return ($prompt, $data_ref); 
    274305        } else { 
    275306            return $buf 
    … …  
    341372        my $prompt = _prompt(\$buf); 
    342373        my ($module, $file, $row, $content) = _process_line(\$buf); 
    343         return ($module, $file, $row, $content, $prompt); 
     374        return ($prompt, $module, $file, $row, $content); 
    344375    } else { 
    345376        return $buf; 

  • trunk/Debug-Client/t/01-add.t

    r9657 r9680  
    1010require Test::Deep; 
    1111import Test::Deep; 
    12 my $D = re('\d+'); 
     12my $PROMPT = re('\d+'); 
    1313 
    1414plan(tests => 7); 
    … …  
    3737{ 
    3838    my @out = $debugger->step_in; 
    39     cmp_deeply(\@out, ['main::', 't/eg/01-add.pl', 6, 'my $x = 1;', $D], 'line 6') 
     39    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/01-add.pl', 6, 'my $x = 1;'], 'line 6') 
    4040        or diag($debugger->buffer); 
    4141} 
    4242{ 
    4343    my @out = $debugger->step_in; 
    44     cmp_deeply(\@out, ['main::', 't/eg/01-add.pl', 7, 'my $y = 2;', $D], 'line 7') 
     44    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/01-add.pl', 7, 'my $y = 2;'], 'line 7') 
    4545        or diag($debugger->buffer); 
    4646} 
    … …  
    4848{ 
    4949    my @out = $debugger->show_line; 
    50     cmp_deeply(\@out, ['main::', 't/eg/01-add.pl', 7, 'my $y = 2;', $D], 'line 7') 
     50    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/01-add.pl', 7, 'my $y = 2;'], 'line 7') 
    5151        or diag($debugger->buffer); 
    5252} 
    5353{ 
    5454    my @out = $debugger->step_in; 
    55     cmp_deeply(\@out, ['main::', 't/eg/01-add.pl', 8, 'my $z = $x + $y;', $D], 'line 8') 
     55    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/01-add.pl', 8, 'my $z = $x + $y;'], 'line 8') 
    5656        or diag($debugger->buffer); 
    5757} 

  • trunk/Debug-Client/t/02-sub-step_out.t

    r9659 r9680  
    1010require Test::Deep; 
    1111import Test::Deep; 
    12 my $D = re('\d+'); 
     12my $PROMPT = re('\d+'); 
    1313 
    1414plan(tests => 11); 
    … …  
    3333{ 
    3434    my @out = $debugger->step_in; 
    35     cmp_deeply(\@out, ['main::', 't/eg/02-sub.pl', 6, 'my $x = 11;', $D], 'line 6'); 
     35    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/02-sub.pl', 6, 'my $x = 11;'], 'line 6'); 
    3636} 
    3737{ 
    3838    my @out = $debugger->step_in; 
    39     cmp_deeply(\@out, ['main::', 't/eg/02-sub.pl', 7, 'my $y = 22;', $D], 'line 7'); 
     39    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/02-sub.pl', 7, 'my $y = 22;'], 'line 7'); 
    4040} 
    4141 
    4242{ 
    4343    my @out = $debugger->step_in; 
    44     cmp_deeply(\@out, ['main::', 't/eg/02-sub.pl', 8, 'my $q = f($x, $y);', $D], 'line 8'); 
     44    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/02-sub.pl', 8, 'my $q = f($x, $y);'], 'line 8'); 
    4545} 
    4646 
    4747{ 
    4848    my @out = $debugger->step_in; 
    49     cmp_deeply(\@out, ['main::f', 't/eg/02-sub.pl', 13, '   my ($q, $w) = @_;', $D], 'line 13'); 
     49    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/02-sub.pl', 13, '   my ($q, $w) = @_;'], 'line 13'); 
    5050} 
    5151 
    5252{ 
    5353    my @out = $debugger->step_in; 
    54     cmp_deeply(\@out, ['main::f', 't/eg/02-sub.pl', 14, '   my $multi = $q * $w;', $D], 'line 14') 
     54    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/02-sub.pl', 14, '   my $multi = $q * $w;'], 'line 14') 
    5555        or diag($debugger->buffer); 
    5656} 
    … …  
    5858{ 
    5959    my @out = $debugger->step_out; 
    60     cmp_deeply(\@out, ['main::', 't/eg/02-sub.pl', 9, 'my $z = $x + $y;', $D, 242], 'line 9') 
     60    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/02-sub.pl', 9, 'my $z = $x + $y;', 242], 'line 9') 
    6161        or diag($debugger->buffer); 
    6262} 
    … …  
    6464{ 
    6565    my @out = $debugger->get_value('$q'); 
    66     cmp_deeply(\@out, [242, $D], '$q is 11*22=242'); 
     66    cmp_deeply(\@out, [$PROMPT, 242], '$q is 11*22=242'); 
    6767} 
    6868{ 
    6969    my @out = $debugger->get_value('$z'); 
    70     cmp_deeply(\@out, ['', $D], '$z is empty'); 
     70    cmp_deeply(\@out, [$PROMPT, ''], '$z is empty'); 
    7171} 
    7272 

  • trunk/Debug-Client/t/02-sub-step_over.t

    r9659 r9680  
    1010require Test::Deep; 
    1111import Test::Deep; 
    12 my $D = re('\d+'); 
     12my $PROMPT = re('\d+'); 
    1313 
    1414plan(tests => 9); 
    … …  
    3333{ 
    3434    my @out = $debugger->step_in; 
    35     cmp_deeply(\@out, ['main::', 't/eg/02-sub.pl', 6, 'my $x = 11;', $D], 'line 6'); 
     35    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/02-sub.pl', 6, 'my $x = 11;'], 'line 6'); 
    3636} 
    3737{ 
    3838    my @out = $debugger->step_in; 
    39     cmp_deeply(\@out, ['main::', 't/eg/02-sub.pl', 7, 'my $y = 22;', $D], 'line 7'); 
     39    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/02-sub.pl', 7, 'my $y = 22;'], 'line 7'); 
    4040} 
    4141 
    4242{ 
    4343    my @out = $debugger->step_in; 
    44     cmp_deeply(\@out, ['main::', 't/eg/02-sub.pl', 8, 'my $q = f($x, $y);', $D], 'line 8') 
     44    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/02-sub.pl', 8, 'my $q = f($x, $y);'], 'line 8') 
    4545        or diag($debugger->buffer); 
    4646} 
    … …  
    4848{ 
    4949    my @out = $debugger->step_over; 
    50     cmp_deeply(\@out, ['main::', 't/eg/02-sub.pl', 9, 'my $z = $x + $y;', $D], 'line 9') 
     50    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/02-sub.pl', 9, 'my $z = $x + $y;'], 'line 9') 
    5151        or diag($debugger->buffer); 
    5252} 
    5353{ 
    5454    my @out = $debugger->get_value('$q'); 
    55     cmp_deeply(\@out, [242, $D], '$q is 11*22=242') 
     55    cmp_deeply(\@out, [$PROMPT, 242], '$q is 11*22=242') 
    5656        or diag($debugger->buffer); 
    5757} 
    5858{ 
    5959    my @out = $debugger->get_value('$z'); 
    60     cmp_deeply(\@out, ['', $D], '$z is empty'); 
     60    cmp_deeply(\@out, [$PROMPT, ''], '$z is empty'); 
    6161} 
    6262 

  • trunk/Debug-Client/t/02-sub.t

    r9659 r9680  
    1010require Test::Deep; 
    1111import Test::Deep; 
    12 my $D = re('\d+'); 
     12my $PROMPT = re('\d+'); 
    1313 
    1414plan(tests => 13); 
    … …  
    3333{ 
    3434    my @out = $debugger->step_in; 
    35     cmp_deeply(\@out, ['main::', 't/eg/02-sub.pl', 6, 'my $x = 11;', $D], 'line 6') 
     35    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/02-sub.pl', 6, 'my $x = 11;'], 'line 6') 
    3636        or diag($debugger->buffer); 
    3737} 
    3838{ 
    3939    my @out = $debugger->step_in; 
    40     cmp_deeply(\@out, ['main::', 't/eg/02-sub.pl', 7, 'my $y = 22;', $D], 'line 7') 
     40    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/02-sub.pl', 7, 'my $y = 22;'], 'line 7') 
    4141        or diag($debugger->buffer); 
    4242} 
    … …  
    4444{ 
    4545    my @out = $debugger->step_in; 
    46     cmp_deeply(\@out, ['main::', 't/eg/02-sub.pl', 8, 'my $q = f($x, $y);', $D], 'line 8') 
     46    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/02-sub.pl', 8, 'my $q = f($x, $y);'], 'line 8') 
    4747        or diag($debugger->buffer); 
    4848} 
    … …  
    5050{ 
    5151    my @out = $debugger->step_in; 
    52     cmp_deeply(\@out, ['main::f', 't/eg/02-sub.pl', 13, '   my ($q, $w) = @_;', $D], 'line 13') 
     52    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/02-sub.pl', 13, '   my ($q, $w) = @_;'], 'line 13') 
    5353        or diag($debugger->buffer); 
    5454} 
    … …  
    5656{ 
    5757    my @out = $debugger->step_in; 
    58     cmp_deeply(\@out, ['main::f', 't/eg/02-sub.pl', 14, '   my $multi = $q * $w;', $D], 'line 14') 
     58    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/02-sub.pl', 14, '   my $multi = $q * $w;'], 'line 14') 
    5959        or diag($debugger->buffer); 
    6060} 
    … …  
    6262{ 
    6363    my @out = $debugger->step_in; 
    64     cmp_deeply(\@out, ['main::f', 't/eg/02-sub.pl', 15, '   my $add   = $q + $w;', $D], 'line 15') 
     64    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/02-sub.pl', 15, '   my $add   = $q + $w;'], 'line 15') 
    6565        or diag($debugger->buffer); 
    6666} 
    … …  
    6868{ 
    6969    my @out = $debugger->step_in; 
    70     cmp_deeply(\@out, ['main::f', 't/eg/02-sub.pl', 16, '   return $multi;', $D], 'line 16') 
     70    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/02-sub.pl', 16, '   return $multi;'], 'line 16') 
    7171        or diag($debugger->buffer); 
    7272} 
    … …  
    7474{ 
    7575    my @out = $debugger->step_in; 
    76     cmp_deeply(\@out, ['main::', 't/eg/02-sub.pl', 9, 'my $z = $x + $y;', $D], 'line 9') 
     76    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/02-sub.pl', 9, 'my $z = $x + $y;'], 'line 9') 
    7777        or diag($debugger->buffer); 
    7878} 
    … …  
    8080{ 
    8181    my @out = $debugger->get_value('$q'); 
    82     cmp_deeply(\@out, [242, $D], '$q is 11*22=242') 
     82    cmp_deeply(\@out, [$PROMPT, 242], '$q is 11*22=242') 
    8383        or diag($debugger->buffer); 
    8484} 
    8585{ 
    8686    my @out = $debugger->get_value('$z'); 
    87     cmp_deeply(\@out, ['', $D], '$z is empty') 
     87    cmp_deeply(\@out, [$PROMPT, ''], '$z is empty') 
    8888        or diag($debugger->buffer); 
    8989} 

  • trunk/Debug-Client/t/03-return.t

    r9659 r9680  
    1010require Test::Deep; 
    1111import Test::Deep; 
    12 my $D = re('\d+'); 
     12my $PROMPT = re('\d+'); 
    1313 
    1414plan(tests => 13); 
    … …  
    3333{ 
    3434    my @out = $debugger->step_in; 
    35     cmp_deeply(\@out, ['main::', 't/eg/03-return.pl', 6, 'my $x = 11;', $D], 'line 6') 
     35    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/03-return.pl', 6, 'my $x = 11;'], 'line 6') 
    3636        or diag($debugger->buffer); 
    3737} 
    3838{ 
    3939    my @out = $debugger->step_in; 
    40     cmp_deeply(\@out, ['main::', 't/eg/03-return.pl', 7, 'my $q = f("foo\nbar");', $D], 'line 7') 
     40    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/03-return.pl', 7, 'my $q = f("foo\nbar");'], 'line 7') 
    4141        or diag($debugger->buffer); 
    4242} 
    4343{ 
    4444    my @out = $debugger->step_in; 
    45     cmp_deeply(\@out, ['main::f', 't/eg/03-return.pl', 16, '   my ($in) = @_;', $D], 'line 16') 
     45    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/03-return.pl', 16, '   my ($in) = @_;'], 'line 16') 
    4646        or diag($debugger->buffer); 
    4747} 
    … …  
    4949{ 
    5050    my @out = $debugger->step_out; 
    51     cmp_deeply(\@out, ['main::', 't/eg/03-return.pl', 8, '$x++;', $D, "'foo\nbar'"], 'line 8') 
     51    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/03-return.pl', 8, '$x++;', "'foo\nbar'"], 'line 8') 
    5252        or diag($debugger->buffer); 
    5353} 
    5454{ 
    5555    my @out = $debugger->step_in; 
    56     cmp_deeply(\@out, ['main::', 't/eg/03-return.pl', 9, q{my @q = g('baz', "foo\nbar", 'moo');}, $D], 'line 9') 
     56    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/03-return.pl', 9, q{my @q = g('baz', "foo\nbar", 'moo');}], 'line 9') 
    5757        or diag($debugger->buffer); 
    5858} 
    5959{ 
    6060    my @out = $debugger->step_in; 
    61     cmp_deeply(\@out, ['main::g', 't/eg/03-return.pl', 22, '   my (@in) = @_;', $D], 'line 22') 
     61    cmp_deeply(\@out, [$PROMPT, 'main::g', 't/eg/03-return.pl', 22, '   my (@in) = @_;'], 'line 22') 
    6262        or diag($debugger->buffer); 
    6363} 
    … …  
    70702  'moo'); 
    7171 
    72     cmp_deeply(\@out, ['main::', 't/eg/03-return.pl', 10, '$x++;', $D, $expected], 'line 10') 
     72    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/03-return.pl', 10, '$x++;', $expected], 'line 10') 
    7373        or diag($debugger->buffer); 
    7474} 
    … …  
    7676{ 
    7777    my @out = $debugger->step_in; 
    78     cmp_deeply(\@out, ['main::', 't/eg/03-return.pl', 11, q{my %q = h(bar => "foo\nbar", moo => 42);}, $D], 'line 11') 
     78    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/03-return.pl', 11, q{my %q = h(bar => "foo\nbar", moo => 42);}], 'line 11') 
    7979        or diag($debugger->buffer); 
    8080} 
    … …  
    8282{ 
    8383    my @out = $debugger->step_in; 
    84     cmp_deeply(\@out, ['main::h', 't/eg/03-return.pl', 28, '   my (%in) = @_;', $D], 'line 28') 
     84    cmp_deeply(\@out, [$PROMPT, 'main::h', 't/eg/03-return.pl', 28, '   my (%in) = @_;'], 'line 28') 
    8585        or diag($debugger->buffer); 
    8686} 
    … …  
    9191# TODO check how to test the return data in this case as it looks like an array 
    9292 
    93     cmp_deeply(\@out, ['main::', 't/eg/03-return.pl', 12, '$x++;', $D, ''], 'line 12') 
     93    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/03-return.pl', 12, '$x++;', ''], 'line 12') 
    9494        or diag($debugger->buffer); 
    9595} 

  • trunk/Debug-Client/t/04-run.t

    r9659 r9680  
    1111require Test::Deep; 
    1212import Test::Deep; 
    13 my $D = re('\d+'); 
     13my $PROMPT = re('\d+'); 
    1414 
    1515plan(tests => 4); 
    … …  
    3434{ 
    3535    my @out = $debugger->step_in; 
    36     cmp_deeply(\@out, ['main::', 't/eg/02-sub.pl', 6, 'my $x = 11;', $D], 'line 6') 
     36    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/02-sub.pl', 6, 'my $x = 11;'], 'line 6') 
    3737        or diag($debugger->buffer); 
    3838} 

  • trunk/Debug-Client/t/04-run_to_line.t

    r9659 r9680  
    1111require Test::Deep; 
    1212import Test::Deep; 
    13 my $D = re('\d+'); 
     13my $PROMPT = re('\d+'); 
    1414 
    1515plan(tests => 5); 
    … …  
    3535{ 
    3636    my @out = $debugger->step_in; 
    37     cmp_deeply(\@out, ['main::', 't/eg/02-sub.pl', 6, 'my $x = 11;', $D], 'line 6') 
     37    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/02-sub.pl', 6, 'my $x = 11;'], 'line 6') 
    3838        or diag($debugger->buffer); 
    3939} 
    … …  
    4141{ 
    4242    my @out = $debugger->run(14); 
    43     cmp_deeply(\@out, ['main::f', 't/eg/02-sub.pl', 14, '   my $multi = $q * $w;', $D], 'line 14') 
     43    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/02-sub.pl', 14, '   my $multi = $q * $w;'], 'line 14') 
    4444        or diag($debugger->buffer); 
    4545} 

  • trunk/Debug-Client/t/04-run_to_sub.t

    r9659 r9680  
    1111require Test::Deep; 
    1212import Test::Deep; 
    13 my $D = re('\d+'); 
     13my $PROMPT = re('\d+'); 
    1414 
    1515plan(tests => 5); 
    … …  
    3535{ 
    3636    my @out = $debugger->step_in; 
    37     cmp_deeply(\@out, ['main::', 't/eg/02-sub.pl', 6, 'my $x = 11;', $D], 'line 6') 
     37    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/02-sub.pl', 6, 'my $x = 11;'], 'line 6') 
    3838        or diag($debugger->buffer); 
    3939} 
    … …  
    4141{ 
    4242    my @out = $debugger->run('f'); 
    43     cmp_deeply(\@out, ['main::f', 't/eg/02-sub.pl', 13, '   my ($q, $w) = @_;', $D], 'line 13') 
     43    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/02-sub.pl', 13, '   my ($q, $w) = @_;'], 'line 13') 
    4444        or diag($debugger->buffer); 
    4545} 

  • trunk/Debug-Client/t/05-execute.t

    r9676 r9680  
    1010require Test::Deep; 
    1111import Test::Deep; 
    12 my $D = re('\d+'); 
     12my $PROMPT = re('\d+'); 
    1313 
    1414our $TODO; # needed becasue Test::More is required and not used 
    … …  
    3535{ 
    3636    my @out = $debugger->step_in; 
    37     cmp_deeply(\@out, ['main::', 't/eg/02-sub.pl', 6, 'my $x = 11;', $D], 'line 6') 
     37    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/02-sub.pl', 6, 'my $x = 11;'], 'line 6') 
    3838        or diag($debugger->buffer); 
    3939} 
    4040{ 
    4141    my @out = $debugger->step_in; 
    42     cmp_deeply(\@out, ['main::', 't/eg/02-sub.pl', 7, 'my $y = 22;', $D], 'line 7') 
     42    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/02-sub.pl', 7, 'my $y = 22;'], 'line 7') 
    4343        or diag($debugger->buffer); 
    4444} 
    … …  
    4646{ 
    4747    my @out = $debugger->execute_code('$abc = 23'); 
    48     cmp_deeply(\@out, ['', $D], 'execute 1') 
     48    cmp_deeply(\@out, [$PROMPT, ''], 'execute 1') 
    4949        or diag($debugger->buffer); 
    5050} 
    5151{ 
    5252    my @out = $debugger->get_value('$abc'); 
    53     cmp_deeply(\@out, [23, $D], 'execute 1') 
     53    cmp_deeply(\@out, [$PROMPT, 23], 'execute 1') 
    5454        or diag($debugger->buffer); 
    5555} 
    5656{ 
    5757    my @out = $debugger->execute_code('@qwe = (23, 42)'); 
    58     cmp_deeply(\@out, ['', $D], 'execute 2') 
     58    cmp_deeply(\@out, [$PROMPT, ''], 'execute 2') 
    5959        or diag($debugger->buffer); 
    6060} 
    … …  
    6363    local $TODO = 'get_value of array'; 
    6464    my @out = $debugger->get_value('@qwe'); 
    65     cmp_deeply(\@out, [23, 42, $D], 'get_value of array') 
     65    cmp_deeply(\@out, [$PROMPT, 23, 42], 'get_value of array') 
    6666        or diag($debugger->buffer); 
    6767} 
    … …  
    6969{ 
    7070    my @out = $debugger->execute_code('%h = (fname => "foo", lname => "bar")'); 
    71     cmp_deeply(\@out, ['', $D], 'execute 3') 
     71    cmp_deeply(\@out, [$PROMPT, ''], 'execute 3') 
    7272        or diag($debugger->buffer); 
    7373} 
    … …  
    7676    local $TODO = 'get_value of hash'; 
    7777    my @out = $debugger->get_value('%h'); 
    78     cmp_deeply(\@out, [$D], 'get_value of hash') 
     78    cmp_deeply(\@out, [$PROMPT], 'get_value of hash') 
    7979        or diag($debugger->buffer); 
    8080} 
    … …  
    8383{ 
    8484    my @out = $debugger->set_breakpoint( 't/eg/02-sub.pl', 15 ); 
    85     cmp_deeply(\@out, ['', $D], 'set_breakpoint') 
     85    cmp_deeply(\@out, [$PROMPT, ''], 'set_breakpoint') 
    8686        or diag($debugger->buffer); 
    8787} 
    … …  
    8989{ 
    9090    my @out = $debugger->run; 
    91     cmp_deeply(\@out, ['main::f', 't/eg/02-sub.pl', 15, '   my $add   = $q + $w;', $D], 'line 15') 
     91    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/02-sub.pl', 15, '   my $add   = $q + $w;'], 'line 15') 
    9292        or diag($debugger->buffer); 
    9393} 

  • trunk/Debug-Client/t/06-breakpoint.t

    r9659 r9680  
    1010require Test::Deep; 
    1111import Test::Deep; 
    12 my $D = re('\d+'); 
     12my $PROMPT = re('\d+'); 
    1313 
    1414plan(tests => 6); 
    … …  
    3333{ 
    3434    my @out = $debugger->step_in; 
    35     cmp_deeply(\@out, ['main::', 't/eg/03-return.pl', 6, 'my $x = 11;', $D], 'line 6') 
     35    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/03-return.pl', 6, 'my $x = 11;'], 'line 6') 
    3636        or diag($debugger->buffer); 
    3737} 
    … …  
    3939{ 
    4040    my @out = $debugger->set_breakpoint('t/eg/03-return.pl', 'g'); 
    41     cmp_deeply(\@out, ['', $D], 'set_breakpoint') 
     41    cmp_deeply(\@out, [$PROMPT, ''], 'set_breakpoint') 
    4242        or diag($debugger->buffer); 
    4343} 
    … …  
    4545{ 
    4646    my @out = $debugger->run; 
    47     cmp_deeply(\@out, ['main::g', 't/eg/03-return.pl', 22, q{   my (@in) = @_;}, $D], 'line 9') 
     47    cmp_deeply(\@out, [$PROMPT, 'main::g', 't/eg/03-return.pl', 22, q{   my (@in) = @_;}], 'line 9') 
    4848        or diag($debugger->buffer); 
    4949} 

  • trunk/Debug-Client/t/07-quit.t

    r9659 r9680  
    1010require Test::Deep; 
    1111import Test::Deep; 
    12 my $D = re('\d+'); 
     12my $PROMPT = re('\d+'); 
    1313 
    1414plan(tests => 3); 
    … …  
    3333{ 
    3434    my @out = $debugger->step_in; 
    35     cmp_deeply(\@out, ['main::', 't/eg/03-return.pl', 6, 'my $x = 11;', $D], 'line 6') 
     35    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/03-return.pl', 6, 'my $x = 11;'], 'line 6') 
    3636        or diag($debugger->buffer); 
    3737} 

  • trunk/Debug-Client/t/08-recursive.t

    r9659 r9680  
    1010require Test::Deep; 
    1111import Test::Deep; 
    12 my $D = re('\d+'); 
     12my $PROMPT = re('\d+'); 
    1313 
    1414plan(tests => 8); 
    … …  
    3333{ 
    3434    my @out = $debugger->step_in; 
    35     cmp_deeply(\@out, ['main::', 't/eg/04-fib.pl', 22, 'my $res = fib(10);', $D], 'line 22') 
     35    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/04-fib.pl', 22, 'my $res = fib(10);'], 'line 22') 
    3636        or diag($debugger->buffer); 
    3737} 
    … …  
    3939{ 
    4040    my @out = $debugger->set_breakpoint('t/eg/04-fib.pl', 'fibx'); 
    41     cmp_deeply(\@out, ['', $D], 'set_breakpoint') 
     41    cmp_deeply(\@out, [$PROMPT, ''], 'set_breakpoint') 
    4242        or diag($debugger->buffer); 
    4343} 
    … …  
    4545{ 
    4646    my @out = $debugger->run; 
    47     cmp_deeply(\@out, ['main::fibx', 't/eg/04-fib.pl', 17, '    my $n = shift;', $D], 'line 17') 
     47    cmp_deeply(\@out, [$PROMPT, 'main::fibx', 't/eg/04-fib.pl', 17, '    my $n = shift;'], 'line 17') 
    4848        or diag($debugger->buffer); 
    4949} 
    … …  
    5454$ = main::fib(10) called from file `t/eg/04-fib.pl' line 22); 
    5555 
    56     cmp_deeply(\@out, [$trace, $D], 'stack trace') 
     56    cmp_deeply(\@out, [$PROMPT, $trace], 'stack trace') 
    5757        or diag($debugger->buffer); 
    5858} 
    … …  
    6060{ 
    6161    my @out = $debugger->run(10); 
    62     cmp_deeply(\@out, ['main::fib', 't/eg/04-fib.pl', 10, '    return 0 if $n == 0;', $D], 'line 10') 
     62    cmp_deeply(\@out, [$PROMPT, 'main::fib', 't/eg/04-fib.pl', 10, '    return 0 if $n == 0;'], 'line 10') 
    6363        or diag($debugger->buffer); 
    6464} 
    … …  
    7070$ = main::fib(10) called from file `t/eg/04-fib.pl' line 22); 
    7171 
    72     cmp_deeply(\@out, [$trace, $D], 'stack trace') 
     72    cmp_deeply(\@out, [$PROMPT, $trace], 'stack trace') 
    7373        or diag($debugger->buffer); 
    7474} 

  • trunk/Debug-Client/t/09-io.t

    r9671 r9680  
    1515require Test::Deep; 
    1616import Test::Deep; 
    17 my $D = re('\d+'); 
     17my $PROMPT = re('\d+'); 
    1818 
    1919plan(tests => 23); 
    … …  
    4040{ 
    4141    my @out = $debugger->step_in; 
    42     cmp_deeply(\@out, ['main::', 't/eg/05-io.pl', 6, 'print "One\n";', $D], 'line 6') 
     42    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/05-io.pl', 6, 'print "One\n";'], 'line 6') 
    4343        or diag($debugger->buffer); 
    4444} 
    … …  
    4646{ 
    4747    my @out = $debugger->step_in; 
    48     cmp_deeply(\@out, ['main::', 't/eg/05-io.pl', 7, 'print STDERR "Two\n";', $D], 'line 7') 
     48    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/05-io.pl', 7, 'print STDERR "Two\n";'], 'line 7') 
    4949        or diag($debugger->buffer); 
    5050} 
    … …  
    5959{ 
    6060    my @out = $debugger->step_in; 
    61     cmp_deeply(\@out, ['main::', 't/eg/05-io.pl', 8, 'print "Three\n";', $D], 'line 8') 
     61    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/05-io.pl', 8, 'print "Three\n";'], 'line 8') 
    6262        or diag($debugger->buffer); 
    6363} 
    … …  
    7272{ 
    7373    my @out = $debugger->step_in; 
    74     cmp_deeply(\@out, ['main::', 't/eg/05-io.pl', 9, 'print "Four";', $D], 'line 9') 
     74    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/05-io.pl', 9, 'print "Four";'], 'line 9') 
    7575        or diag($debugger->buffer); 
    7676} 
    … …  
    8787{ 
    8888    my @out = $debugger->step_in; 
    89     cmp_deeply(\@out, ['main::', 't/eg/05-io.pl', 10, 'print "\n";', $D], 'line 10') 
     89    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/05-io.pl', 10, 'print "\n";'], 'line 10') 
    9090        or diag($debugger->buffer); 
    9191} 
    … …  
    100100{ 
    101101    my @out = $debugger->step_in; 
    102     cmp_deeply(\@out, ['main::', 't/eg/05-io.pl', 11, 'print STDERR "Five";', $D], 'line 11') 
     102    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/05-io.pl', 11, 'print STDERR "Five";'], 'line 11') 
    103103        or diag($debugger->buffer); 
    104104} 
Note: See TracChangeset for help on using the changeset viewer.