Changeset 9694

Timestamp:

12/14/09 04:19:55 (2 years ago)

Author:

szabgab

Message:

[Debug::Client] more test cases

Location:

trunk/Debug-Client

Files:

• lib/Debug/Client.pm (modified) (1 diff)
• t/05-execute.t (modified) (2 diffs)
• t/08-recursive.t (modified) (3 diffs)

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

@@ -262 +262 @@
 =head2 execute_code
 
+  $d->execute_code($some_code_to_execute);
+
 =cut
 
 sub execute_code {
     my ($self, $code) = @_;
+    
     return if not defined $code;
+
     $self->_send($code);
     my $buf = $self->_get;

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

@@ -14 +14 @@
 our $TODO; # needed becasue Test::More is required and not used
 
-plan(tests => 14);
+plan(tests => 18);
 
 my $debugger = start_debugger();
@@ -43 +43 @@
         or diag($debugger->buffer);
 }
+
+{
+    my @out = $debugger->execute_code();
+    cmp_deeply(\@out, [], 'no code')
+        or diag($debugger->buffer);
+    my $out = $debugger->execute_code();
+    is($out, undef, 'no code in scalar context');
+}
+
+{
+    my @out = $debugger->execute_code('19+23');
+    cmp_deeply(\@out, ['2', ''], 'no code')
+        or diag($debugger->buffer);
+    my $out = $debugger->execute_code('19+23');
+    is($out, "\n  DB<3> ", 'no code in scalar context');
+}
+
 
 {

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

@@ -12 +12 @@
 my $PROMPT = re('\d+');
 
-plan(tests => 8);
+plan(tests => 10);
 
 my $debugger = start_debugger();
@@ -56 +56 @@
     cmp_deeply(\@out, [$PROMPT, $trace], 'stack trace')
         or diag($debugger->buffer);
+
+    my $out = $debugger->get_stack_trace;
+    is($out, q($ = main::fibx(9) called from file `t/eg/04-fib.pl' line 12
+$ = main::fib(10) called from file `t/eg/04-fib.pl' line 22
+  DB<3> ), 'stack trace in scalar context');
 }
 
@@ -72 +77 @@
     cmp_deeply(\@out, [$PROMPT, $trace], 'stack trace')
         or diag($debugger->buffer);
+    my $out = $debugger->get_stack_trace;
+    is($out, q($ = main::fib(9) called from file `t/eg/04-fib.pl' line 18
+$ = main::fibx(9) called from file `t/eg/04-fib.pl' line 12
+$ = main::fib(10) called from file `t/eg/04-fib.pl' line 22
+  DB<4> ), 'stack trace in scalar context');
 }