use Test::More; use Example::HTML::Reformatter qw/reformat/; is(reformat(<<'IN'), <<'OUT', 'HTML was reformatted'); Foo IN Foo OUT done_testing(1); #### my $str = q{Foo{the following curly does not end the quote}but the next one does};