From add330e3fac815bd5a4f489408a6374b7fa0e671 Mon Sep 17 00:00:00 2001 From: Mark Tompsett Date: Fri, 1 May 2015 21:16:56 -0400 Subject: [PATCH] Bug 14116: Silence noisy output for t/Scrubber. Some diag's are better suited as prints. TEST PLAN --------- 1) $ prove t/Scrubber.t -- there's some noise. 2) apply patch 3) $ prove t/Scrubber.t -- noise issue resolved. Output is still reasonable for -v. 4) koha qa test tools --- t/Scrubber.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/t/Scrubber.t b/t/Scrubber.t index 0fe3a60..08642fe 100755 --- a/t/Scrubber.t +++ b/t/Scrubber.t @@ -44,7 +44,7 @@ At the end here, I actually have some regular text. |; print pretty_line("Original HTML:"), $html, "\n", pretty_line(); -$collapse and diag "Note: scrubber test output will have whitespace collapsed for readability\n"; +$collapse and print "Note: scrubber test output will have whitespace collapsed for readability\n"; ok($scrubber = C4::Scrubber->new(), "Constructor: C4::Scrubber->new()"); isa_ok($scrubber, 'HTML::Scrubber', 'Constructor returns HTML::Scrubber object'); @@ -85,4 +85,4 @@ pass("Test should have failed on entry of 'Client' and it did. YAY!\n"); print "######################################################\n"; -diag "done.\n"; +print "done.\n"; -- 2.1.4