The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
ADAMK / Template-Plugin-Body-1.04 / t / 02_main.t 
#!/usr/bin/perl

# Main unit tests for Template::Plugin::Body module

use strict;
BEGIN {
	$|  = 1;
	$^W = 1;
}





use Test::More tests => 5;
use Template::Plugin::Body;

my $coderef = Template::Plugin::Body->coderef;
is( ref($coderef), 'CODE', '->coderef returns a CODE reference' );





#####################################################################
# Tests

{ # The basics
my $content = <<'END_HTML';
<html>
<body>
This is the content
</body>
</html>
END_HTML

is( $coderef->( $content ), "\nThis is the content\n",
	"Basic filter returns as expected" );
}





{ # A little more stuff
my $content = <<'END_HTML';
<html>
<body onload="foo();">
This is the content
</body>
</html>
END_HTML

is( $coderef->( $content ), "\nThis is the content\n",
	"onload filter returns as expected" );
}





{ # A little broken
my $content = <<'END_HTML';
<html>
<body>
This is the <body> content
</body>
</html>
END_HTML

is( $coderef->( $content ), "\nThis is the <body> content\n",
	"Broken content filter returns as expected" );
}





{ # Another possible broken one
my $content = <<'END_HTML';
<html>
<body>
This is the content
END_HTML

is( $coderef->( $content ), "\nThis is the content\n",
	"Broken content filter returns as expected" );
}