#!/usr/bin/env perl -w
use strict;
use warnings;
use Test::More qw( no_plan );
use Text::Template::Simple;
use File::Spec;
ok( my $t = Text::Template::Simple->new(), 'Got the object' );
my $file = File::Spec->catfile( qw( t data ), '027-dynamic.tts' );
ok( my $got = $t->compile( $file ), 'Compile' );
is( $got, 'Dynamic: Perl ROCKS!', 'Dynamic include got params');