1#!/usr/bin/perl 2 3use strict; 4use warnings; 5use Test::More tests => 4; 6 7BEGIN { push(@INC, "lib", "t"); } 8 9use Net::Amazon::MechanicalTurk::Template; 10 11my $file = "t/templates/61-template-ok.pl"; 12my $template = Net::Amazon::MechanicalTurk::Template->compile($file); 13 14ok($template, "Compiled perl file."); 15 16my $params = { 17 title => "The Big One", 18 subTitle => "hmmm", 19 genre => "Who knows?", 20 author => "Bob", 21 family => { 22 kid => ['Toby', 'Charlie'], 23 wife => 'Meg' 24 } 25}; 26 27my $text = $template->execute($params); 28#print $text, "\n"; 29ok(1, "Executed template"); 30 31$template = Net::Amazon::MechanicalTurk::Template->compile($file); 32ok($template, "recompile worked"); 33 34$text = $template->execute($params); 35#print $text, "\n"; 36ok(1, "Executed template"); 37 38eval { 39 $template = Net::Amazon::MechanicalTurk::Template->compile("t/templates/61-template-bad.pl"); 40}; 41if ($@) { 42 43} 44