From 144922a63ee355220e4109bf4eab660dde934dea Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Mariano=20P=C3=A9rez=20Rodr=C3=ADguez?= Date: Tue, 5 Aug 2014 09:50:44 -0300 Subject: [PATCH] Stop tests from leaving a black background Uses ANSI "default background" color code after closing tests so any non-black terminals don't remain polluted. Fixes #1649 Closes #1912 --- tests/support/util.tcl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/support/util.tcl b/tests/support/util.tcl index 7774dd99a..4b9caced8 100644 --- a/tests/support/util.tcl +++ b/tests/support/util.tcl @@ -353,7 +353,7 @@ proc colorstr {color str} { default {set colorcode {37}} } if {$colorcode ne {}} { - return "\033\[$b;${colorcode};40m$str\033\[0m" + return "\033\[$b;${colorcode};49m$str\033\[0m" } } else { return $str