XHTML results from the CPAN

XHTML

HTML-StripScripts-Regex

view release on metacpan or search on metacpan


use strict;
use warnings;
use Test::More tests => 14;

use_ok( 'HTML::StripScripts::Regex' );

use vars qw($p);

$p = HTML::StripScripts::Regex->new;
isa_ok($p, 'HTML::StripScripts::Regex');

my $pp = $p->new;
isa_ok($pp, 'HTML::StripScripts::Regex');

test( '', '', 'empty document');
test( 'foo', 'foo', 'text only document');
test( "f\0o", 'f o', 'strip nulls' );

test( '<i><asdfsadf>foo</boink>',
      '<i><!--filtered-->foo<!--filtered--></i>',
      'parse into tags' );

test( 'x<foo>y',  'x<!--filtered-->y', 'filter start' );
test( 'x</foo>y', 'x<!--filtered-->y', 'filter end' );

test( '<table> </table>',
      '<table> </table>',
      'filter text' );

test( 'x<?xml version="1.0" encoding="utf-8"?>y',
      'x<!--filtered-->y',
      'filter process' );

test( 'x<!-- foo -->y',
      'x<!--filtered-->y',
      'filter comment' );

test( 'x<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"' . "\n" .
          '   "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">y',
      'x<!--filtered-->y',
      'filter declaration' );

{
  package MyFilter;
  use base qw(HTML::StripScripts::Regex);

  sub output_end { 
    my ($self, $text) = @_;

    $self->output(uc $text);
  }
}

$p = MyFilter->new;
test( '<i>foo</i>', '<i>foo</I>', 'subclassing works as expected' );


sub test {
    my ($in, $out, $name) = @_;

    $p->input($in);
    is( $p->filtered_document, $out, $name );
}

( run in 2.273 seconds using v1.01-cache-2.11-cpan-119454b85a5 )