X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=t%2FScrubber.t;h=ce1503f0ab119f74a655d76281ae554daff3dc1c;hb=5a924cc530658f3ab11cf1a219fd9ba4e602f1e5;hp=8796ee8ec2f59ed881014282acb99a893762fd8b;hpb=e3826229ebadf49d75207172251eead6b2397aac;p=koha.git
diff --git a/t/Scrubber.t b/t/Scrubber.t
index 8796ee8ec2..ce1503f0ab 100755
--- a/t/Scrubber.t
+++ b/t/Scrubber.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More tests => 10;
+use Test::More tests => 11;
BEGIN {
use FindBin;
use lib $FindBin::Bin;
@@ -31,7 +31,7 @@ $html = q|
I am em with fake="attribute"
I am BOLD
I am a span w/ style. Bad style.
- I am a span trying to inject a link: <a href="badlink.html"> link <a>
+ I am a span trying to inject a link: <a href="badlink.html"> link </a>
I am a link firing javascript.
@@ -46,6 +46,9 @@ 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";
ok($scrubber = C4::Scrubber->new(), "Constructor: C4::Scrubber->new()");
+
+isa_ok($scrubber, 'HTML::Scrubber', 'Constructor returns HTML::Scrubber object');
+
ok(printf("# scrubber settings: default %s, comment %s, process %s\n",
$scrubber->default(),$scrubber->comment(),$scrubber->process()),
"Outputting settings from scrubber object (type: [default])"