From 1d3248bb1f9900635f9df01fb990a7343274bd8e Mon Sep 17 00:00:00 2001 From: Paul Beckingham Date: Sat, 1 Dec 2012 23:30:33 -0500 Subject: [PATCH] Unit Tests - Fixed problem with color.uda.t leaving default color.alternate active. --- test/color.uda.t | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/test/color.uda.t b/test/color.uda.t index 297635aba..fe130c2dd 100755 --- a/test/color.uda.t +++ b/test/color.uda.t @@ -37,6 +37,7 @@ if (open my $fh, '>', 'color.rc') "color.uda.x=red\n", "uda.x.type=numeric\n", "uda.x.label=X\n", + "color.alternate=\n", "_forcecolor=1\n"; close $fh; ok (-r 'color.rc', 'Created color.rc'); @@ -44,7 +45,7 @@ if (open my $fh, '>', 'color.rc') qx{../src/task rc:color.rc add one 2>&1}; qx{../src/task rc:color.rc add two x:3 2>&1}; -my $output = qx{../src/task rc:color.rc list 2>&1}; +my $output = qx{../src/task rc:color.rc list 2>/dev/null}; unlike ($output, qr/ \033\[32m .* one .* \033\[0m /x, 'No color.uda'); like ($output, qr/ \033\[31m .* two .* \033\[0m /x, 'Found color.uda');