View | Details | Raw Unified | Return to bug 36328
Collapse All | Expand All

(-)a/t/Scrubber.t (-4 / +4 lines)
Lines 1-10 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use strict;
3
use Modern::Perl;
4
use warnings;
5
4
6
$| = 1;
5
$| = 1;
7
use Test::More tests => 29;
6
use Test::More tests => 30;
8
use Test::Warn;
7
use Test::Warn;
9
8
10
BEGIN {
9
BEGIN {
Lines 82-84 eval{ Link Here
82
if ($@) {
81
if ($@) {
83
    pass("Test should have failed on entry of 'Client' and it did. YAY!");
82
    pass("Test should have failed on entry of 'Client' and it did. YAY!");
84
}
83
}
85
- 
84
85
is( C4::Scrubber->new('comment')->scrub('<span>Allow span</span>'), '<span>Allow span</span>' );

Return to bug 36328