Lines 84-92
if ($@) {
Link Here
|
84 |
} |
84 |
} |
85 |
|
85 |
|
86 |
my $scrub_text = |
86 |
my $scrub_text = |
87 |
'<div><span><p><b>bold</b><i>ital</i><em>emphatic</em><big>embiggen</big><small>shrink</small><strong>strongbad</strong><br><u>under</u><hr></p></span></div>'; |
87 |
'<div><span><p><b>bold</b><i>ital</i><em>emphatic</em><big>embiggen</big><small>shrink</small><strong>strongbad</strong><br><u>under</u><hr><ol><li>ordered item</li></ol><ul><li>unordered item</li></ul><dl><dt>term</dt><dd>definition</dd></dl></p></span></div>'; |
88 |
my $scrub_comment = |
88 |
my $scrub_comment = |
89 |
'<b>bold</b><i>ital</i><em>emphatic</em><big>embiggen</big><small>shrink</small><strong>strongbad</strong><br>under'; |
89 |
'<b>bold</b><i>ital</i><em>emphatic</em><big>embiggen</big><small>shrink</small><strong>strongbad</strong><br>underordered itemunordered itemtermdefinition'; |
90 |
is( C4::Scrubber->new('comment')->scrub($scrub_text), $scrub_comment, "Comment scrubber removes expected elements" ); |
90 |
is( C4::Scrubber->new('comment')->scrub($scrub_text), $scrub_comment, "Comment scrubber removes expected elements" ); |
91 |
is( |
91 |
is( |
92 |
C4::Scrubber->new('note')->scrub($scrub_text), $scrub_text, |
92 |
C4::Scrubber->new('note')->scrub($scrub_text), $scrub_text, |
93 |
- |
|
|