#!/usr/bin/perl # Main unit tests for Template::Plugin::NakedBody module use strict; BEGIN { $| = 1; $^W = 1; } use Test::More tests => 5; use Template::Plugin::NakedBody; my $coderef = Template::Plugin::NakedBody->coderef; is( ref($coderef), 'CODE', '->coderef returns a CODE reference' ); ##################################################################### # Tests { # The basics my $content = <<'END_HTML'; This is the content END_HTML is( $coderef->( $content ), "\nThis is the content\n", "Basic filter returns as expected" ); } { # A little more stuff my $content = <<'END_HTML'; This is the content END_HTML is( $coderef->( $content ), "\nThis is the content\n", "onload filter returns as expected" ); } { # A little broken my $content = <<'END_HTML'; This is the content END_HTML is( $coderef->( $content ), "\nThis is the content\n", "Broken content filter returns as expected" ); } { # Another possible broken one my $content = <<'END_HTML'; This is the content END_HTML is( $coderef->( $content ), "\nThis is the content\n", "Broken content filter returns as expected" ); }