@@ -, +, @@ --------- -- there's some noise. -- noise issue resolved. Output is still reasonable for -v. --- t/Scrubber.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) --- a/t/Scrubber.t +++ a/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"; --