1#!perl -T 2 3use strict; 4use warnings; 5use Test::More tests => 3; 6use Tenjin; 7use Try::Tiny; 8 9my $t = Tenjin->new({ path => ['t/data/fail'] }); 10ok($t, 'Got a proper Tenjin instance'); 11 12my $output = try { $t->render('fail.html') } catch { 'failed'; }; 13 14is( 15 $output, 16 'failed', 17 'failure caught' 18); 19 20my $output2 = try { $t->render('no_fail.html') } catch { 'failed'; }; 21 22is( 23 $output2, 24 1, 25 'all okay' 26); 27