The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# test the docs in TT.pm

use Test::More tests => 2;

use Inline (
    TT         => 'DATA',
    PRE_CHOMP  => 1,
    POST_CHOMP => 1,
);

my $output = simple( { name => 'Rob' } );

is( $output,
	"<H1>Greetings!</H1>Hello Rob, how are you?",
	'simple include without data pass');

$output = data_pass( { name => 'Rob' } );

is( $output,
	'<H1>Hello Rob, how are you?</H1>',
	'include with regular pass' );

__DATA__
__TT__
[% BLOCK simple %]
[% INCLUDE 't/header.tt' %]
Hello [% name %], how are you?
[% END %]

[% BLOCK data_pass %]
[% INCLUDE 't/datarec.tt' %]
[% END %]