58 lines
1.8 KiB
Diff
58 lines
1.8 KiB
Diff
From 27728658b28c256f96dd6e7b5a2de70373d62ff1 Mon Sep 17 00:00:00 2001
|
||
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
|
||
Date: Tue, 9 Jul 2013 12:25:00 +0200
|
||
Subject: [PATCH] Disable ornaments on perl5db AutoTrace tests
|
||
MIME-Version: 1.0
|
||
Content-Type: text/plain; charset=UTF-8
|
||
Content-Transfer-Encoding: 8bit
|
||
|
||
If TERM=vt100, Term::ReadLine will put ornaments that break the
|
||
AutoTrace test:
|
||
|
||
Failed test 100 - Test the o AutoTrace command at ../lib/perl5db.t line 2302
|
||
got 'main::(../lib/perl5db/t/disable-breakpoints-1:2):
|
||
2: my $x = "One";
|
||
main::(../lib/perl5db/t/disable-breakpoints-1:3):
|
||
3: my $dummy = 0;
|
||
main::(../lib/perl5db/t/disable-breakpoints-1:5):
|
||
5: $x = "FirstVal";
|
||
main::(..Debugged program terminated. Use [1m<31><6D>q[0m<30><6D> to quit or [1m<31><6D>R[0m<30><6D> to restart,
|
||
use [1m<31><6D>o[0m<30><6D> [4m<34><6D>inhibit_exit[m<><6D> to avoid stopping after program termination,
|
||
[1m<31><6D>h q[0m<30><6D>, [1m<31><6D>h R[0m<30><6D> or [1m<31><6D>h o[0m<30><6D> to get additional info.
|
||
auto(-1) DB<2> q
|
||
::(../lib/perl5db/t/disable-breakpoints-1:15):
|
||
15: $dummy++;
|
||
main::(../lib/perl5db/t/disable-breakpoints-1:17):
|
||
17: $x = "FourthVal";
|
||
main::(../lib/perl5db/t/disable-breakpoints-1:19):
|
||
19: $dummy++;
|
||
'
|
||
expected /(?^msx:
|
||
^main::\([^:]+:15\):\n
|
||
15:\s+\$dummy\+\+;\n
|
||
main::\([^:]+:17\):\n
|
||
17:\s+\$x\ =\ "FourthVal";\n
|
||
)/
|
||
|
||
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
||
---
|
||
lib/perl5db.t | 2 +-
|
||
1 file changed, 1 insertion(+), 1 deletion(-)
|
||
|
||
diff --git a/lib/perl5db.t b/lib/perl5db.t
|
||
index 9a57960..186f695 100644
|
||
--- a/lib/perl5db.t
|
||
+++ b/lib/perl5db.t
|
||
@@ -2334,7 +2334,7 @@ sub _calc_trace_wrapper
|
||
{
|
||
cmds =>
|
||
[
|
||
- 'o AutoTrace',
|
||
+ 'o AutoTrace ornaments=0',
|
||
'c',
|
||
'q',
|
||
],
|
||
--
|
||
1.8.1.4
|
||
|