use Test;
BEGIN { plan tests => 2 };
use strict;
BEGIN { eval { require warnings } ? 'warnings'->import : ( $^W = 1 ) }
require Waft;
my $text = qq{ "&'5678\t<br />\n};
my $filtered = q{ "&'5678}
. qq{ <br /><br />\n};
ok( Waft->text_filter($text) eq $filtered );
ok( Waft->text_filter("$text$text") eq "$filtered$filtered" );