#!perl -T use warnings; use strict; use Test::More tests => 1; use HTML::Tidy; my $input=q{Here's some ed and
eakfest MarkUp}; my $expected=<<'EOD'; Here's some ed and
eakfest MarkUp
EOD my @expected = split(/\n/, $expected); my $cfg = 't/wordwrap.cfg'; my $tidy = HTML::Tidy->new( {config_file => $cfg} ); my $result = $tidy->clean( $input ); my @result = split(/\n/, $result); is_deeply( \@result, \@expected, 'Cleaned stuff looks like what we expected');