From 27728658b28c256f96dd6e7b5a2de70373d62ff1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= 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 ��q�� to quit or ��R�� to restart, use ��o�� ��inhibit_exit�� to avoid stopping after program termination, ��h q��, ��h R�� or ��h o�� 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ř --- 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