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