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

(-)a/t/Scrubber.t (-3 / +2 lines)
Lines 4-10 use Modern::Perl; Link Here
4
4
5
$| = 1;
5
$| = 1;
6
use Test::NoWarnings;
6
use Test::NoWarnings;
7
use Test::More tests => 32;
7
use Test::More tests => 27;
8
use Test::Warn;
8
use Test::Warn;
9
9
10
BEGIN {
10
BEGIN {
Lines 23-29 sub pretty_line { Link Here
23
23
24
my ( $scrubber, $html, $result, @types, $collapse );
24
my ( $scrubber, $html, $result, @types, $collapse );
25
$collapse = 1;
25
$collapse = 1;
26
@types    = qw(default comment tag staff);
26
@types    = qw(default comment note);
27
$html     = q|
27
$html     = q|
28
<![CDATA[selfdestruct]]&#x5d;>
28
<![CDATA[selfdestruct]]&#x5d;>
29
<?php  echo(" EVIL EVIL EVIL "); ?>    <!-- COMMENT -->
29
<?php  echo(" EVIL EVIL EVIL "); ?>    <!-- COMMENT -->
30
- 

Return to bug 40087