The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

DRTECH / HTML-StripScripts-Parser-1.03 / t / 20script.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62

              
use strict;
BEGIN { $^W = 1 }
use Test::More tests => 2;
use HTML::StripScripts::Parser;
my $filt = HTML::StripScripts::Parser->new( { Context => 'Document' } );
is( $filt->filter_html(<<IN), <<OUT, 'scripts handled correctly' );
<html>
 <head>
  <title>script test page</title>
 </head>
 <body>
  foo
 </body>
</html>
IN
<html>
 <head>
  <title>script test page</title>
 </head>
 <body>
  foo
 </body>
</html>
OUT
is( $filt->filter_html(<<IN), <<OUT, 'scripts handled correctly' );
<html>
 <head>
  <title>script test page</title>
  <script>
     this.is.javascript.and("<this> isn't a tag.  Nor is <b>");
  </script>
  <script>
   <!--
     // script in comments
     foo.foo
   -->
  </script>
 </head>
 <body>
  foo<!--filtered--><!--filtered-->
  <b>baz</b>
 </body>
</html>
IN
<html>
 <head>
  <title>script test page</title>
  <!--filtered--><!--filtered-->
  <!--filtered--><!--filtered-->
 </head>
 <body>
  foo<!--filtered--><!--filtered-->
  <b>baz</b>
 </body>
</html>
OUT