Changeset 9686

Timestamp:

12/14/09 02:01:13 (2 years ago)

Author:

szabgab

Message:

some more diagnostics during tests

Location:

trunk/Debug-Client/t

Files:

• 01-add.t (modified) (1 diff)
• 02-sub-step_over.t (modified) (1 diff)

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

@@ -40 +40 @@
         or diag($debugger->buffer);
 }
+
 {
-    my @out = $debugger->step_in;
-    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/01-add.pl', 7, 'my $y = 2;'], 'line 7')
-        or diag($debugger->buffer);
+    my $out = $debugger->step_in;
+    is($out, "main::(t/eg/01-add.pl:7):\tmy \$y = 2;\n  DB<1> ", 'line 7') or do {
+        $out =~ s/ /S/g;
+        diag($out);
+    }
 }
 

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

@@ -33 +33 @@
 {
     my @out = $debugger->step_in;
-    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/02-sub.pl', 6, 'my $x = 11;'], 'line 6');
+    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/02-sub.pl', 6, 'my $x = 11;'], 'line 6')
+        or diag($debugger->buffer);
 }
 {
     my @out = $debugger->step_in;
-    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/02-sub.pl', 7, 'my $y = 22;'], 'line 7');
+    cmp_deeply(\@out, [$PROMPT, 'main::', 't/eg/02-sub.pl', 7, 'my $y = 22;'], 'line 7')
+        or diag($debugger->buffer);
 }