Changeset 9693

Timestamp:

12/14/09 03:41:38 (2 years ago)

Author:

szabgab

Message:

[Debug::Client] adding more tests

Location:

trunk/Debug-Client

Files:

• Changes (modified) (1 diff)
• t/02-sub-step_out.t (modified) (3 diffs)
• t/02-sub-step_over.t (modified) (2 diffs)
• t/02-sub.t (modified) (6 diffs)
• t/04-run_to_line.t (modified) (1 diff)
• t/04-run_to_sub.t (modified) (1 diff)
• t/05-execute.t (modified) (3 diffs)
• t/eg/02-sub.pl (modified) (1 diff)

trunk/Debug-Client/Changes

@@ +1 @@
+v0.07
+    Added more test.
+
 v0.06 2009.12.14
     Prompt is now the first return paramter

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

@@ -12 +12 @@
 my $PROMPT = re('\d+');
 
-plan(tests => 11);
+plan(tests => 16);
 
 my $debugger = start_debugger();
@@ -47 +47 @@
 {
     my @out = $debugger->step_in;
-    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/02-sub.pl', 13, '   my ($q, $w) = @_;'], 'line 13');
+    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/02-sub.pl', 16, '   my ($q, $w) = @_;'], 'line 16');
 }
 
 {
     my @out = $debugger->step_in;
-    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/02-sub.pl', 14, '   my $multi = $q * $w;'], 'line 14')
+    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/02-sub.pl', 17, '   my $multi = $q * $w;'], 'line 17')
         or diag($debugger->buffer);
 }
@@ -72 +72 @@
 
 {
+    my $out = $debugger->step_in;
+    is($out, "main::(t/eg/02-sub.pl:10):\tmy \$t = f(19, 23);\n  DB<3> ", 'out');
+}
+
+{
+    my @out = $debugger->step_in;
+    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/02-sub.pl', 16, '   my ($q, $w) = @_;'], 'line 17')
+        or diag($debugger->buffer);
+}
+
+{
+    my $out = $debugger->step_in;
+    is($out, "main::f(t/eg/02-sub.pl:17):\t   my \$multi = \$q * \$w;\n  DB<3> ", 'out');
+}
+
+{
+    my $out = $debugger->step_out;
+    is($out, "scalar context return from main::f: 437\nmain::(t/eg/02-sub.pl:11):\t\$t++;\n  DB<3> ", 'out');
+}
+
+{
+    my $out = $debugger->step_in;
+    is($out, "main::(t/eg/02-sub.pl:12):\t\$z++;\n  DB<3> ", 'out');
+}
+
+{
 # Debugged program terminated.  Use q to quit or R to restart,
 #   use o inhibit_exit to avoid stopping after program termination,

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

@@ -12 +12 @@
 my $PROMPT = re('\d+');
 
-plan(tests => 9);
+plan(tests => 12);
 
 my $debugger = start_debugger();
@@ -63 +63 @@
 }
 
+
+{
+    my $out = $debugger->step_over;
+    is($out, "main::(t/eg/02-sub.pl:10):\tmy \$t = f(19, 23);\n  DB<3> ", 'step over on simple statement');
+}
+
+{
+    my $out = $debugger->step_over;
+    is($out, "main::(t/eg/02-sub.pl:11):\t\$t++;\n  DB<3> ", 'step over in scalar context');
+}
+
+{
+    my @out = $debugger->step_over;
+    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/02-sub.pl', 12, '$z++;'], 'line 12')
+        or diag($debugger->buffer);
+}
+
 {
 # Debugged program terminated.  Use q to quit or R to restart,

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

@@ -12 +12 @@
 my $PROMPT = re('\d+');
 
-plan(tests => 13);
+plan(tests => 20);
 
 my $debugger = start_debugger();
@@ -50 +50 @@
 {
     my @out = $debugger->step_in;
-    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/02-sub.pl', 13, '   my ($q, $w) = @_;'], 'line 13')
+    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/02-sub.pl', 16, '   my ($q, $w) = @_;'], 'line 16')
         or diag($debugger->buffer);
 }
@@ -56 +56 @@
 {
     my @out = $debugger->step_in;
-    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/02-sub.pl', 14, '   my $multi = $q * $w;'], 'line 14')
+    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/02-sub.pl', 17, '   my $multi = $q * $w;'], 'line 17')
         or diag($debugger->buffer);
 }
@@ -62 +62 @@
 {
     my @out = $debugger->step_in;
-    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/02-sub.pl', 15, '   my $add   = $q + $w;'], 'line 15')
+    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/02-sub.pl', 18, '   my $add   = $q + $w;'], 'line 18')
         or diag($debugger->buffer);
 }
@@ -68 +68 @@
 {
     my @out = $debugger->step_in;
-    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/02-sub.pl', 16, '   return $multi;'], 'line 16')
+    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/02-sub.pl', 19, '   return $multi;'], 'line 19')
         or diag($debugger->buffer);
 }
@@ -90 +90 @@
 
 {
+    my $out = $debugger->step_in;
+    is($out, "main::(t/eg/02-sub.pl:10):\tmy \$t = f(19, 23);\n  DB<3> ", 'out');
+}
+
+{
+    my $out = $debugger->step_in;
+    is($out, "main::f(t/eg/02-sub.pl:16):\t   my (\$q, \$w) = \@_;\n  DB<3> ", 'out');
+}
+
+{
+    my $out = $debugger->step_in;
+    is($out, "main::f(t/eg/02-sub.pl:17):\t   my \$multi = \$q * \$w;\n  DB<3> ", 'out');
+}
+
+{
+    my $out = $debugger->step_in;
+    is($out, "main::f(t/eg/02-sub.pl:18):\t   my \$add   = \$q + \$w;\n  DB<3> ", 'out');
+}
+
+
+{
+    my $out = $debugger->step_in;
+    is($out, "main::f(t/eg/02-sub.pl:19):\t   return \$multi;\n  DB<3> ", 'out');
+}
+
+{
+    my $out = $debugger->step_in;
+    is($out, "main::(t/eg/02-sub.pl:11):\t\$t++;\n  DB<3> ", 'out');
+}
+
+{
+    my $out = $debugger->step_in;
+    is($out, "main::(t/eg/02-sub.pl:12):\t\$z++;\n  DB<3> ", 'out');
+}
+
+
+{
 # Debugged program terminated.  Use q to quit or R to restart,
 #   use o inhibit_exit to avoid stopping after program termination,

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

@@ -40 +40 @@
 
 {
-    my @out = $debugger->run(14);
-    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/02-sub.pl', 14, '   my $multi = $q * $w;'], 'line 14')
+    my @out = $debugger->run(17);
+    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/02-sub.pl', 17, '   my $multi = $q * $w;'], 'line 17')
         or diag($debugger->buffer);
 }

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

@@ -41 +41 @@
 {
     my @out = $debugger->run('f');
-    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/02-sub.pl', 13, '   my ($q, $w) = @_;'], 'line 13')
+    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/02-sub.pl', 16, '   my ($q, $w) = @_;'], 'line 16')
         or diag($debugger->buffer);
 }

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

@@ -14 +14 @@
 our $TODO; # needed becasue Test::More is required and not used
 
-plan(tests => 13);
+plan(tests => 14);
 
 my $debugger = start_debugger();
@@ -82 +82 @@
 
 {
-    my @out = $debugger->set_breakpoint( 't/eg/02-sub.pl', 15 );
+    my @out = $debugger->set_breakpoint( 't/eg/02-sub.pl', 18 );
     cmp_deeply(\@out, [$PROMPT, ''], 'set_breakpoint')
         or diag($debugger->buffer);
@@ -89 +89 @@
 {
     my @out = $debugger->run;
-    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/02-sub.pl', 15, '   my $add   = $q + $w;'], 'line 15')
+    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/02-sub.pl', 18, '   my $add   = $q + $w;'], 'line 18')
         or diag($debugger->buffer);
 }
 
+# TODO maybe check if we can remove the breakpoint
+{
+    my @out = $debugger->run;
+    cmp_deeply(\@out, [$PROMPT, 'main::f', 't/eg/02-sub.pl', 18, '   my $add   = $q + $w;'], 'line 18')
+        or diag($debugger->buffer);
+}
 
 {

trunk/Debug-Client/t/eg/02-sub.pl

@@ -8 +8 @@
 my $q = f($x, $y);
 my $z = $x + $y;
+my $t = f(19, 23);
+$t++;
+$z++;