use strict;
use warnings;
use Test::More tests => 7;
package MyApp::Templates;
use Template::Declare::Tags 'HTML';
eval "td { 'hi' }";
::ok $@, 'td is invalid';
::is $@, "td {...} is invalid; use cell {...} instead.\n";
eval "tr { 'hi' }";
::ok $@, 'tr is invalid';
::like $@, qr/Transliteration replacement not terminated/;
eval "base { 'hi' }";
::ok $@;
::like $@, qr/Can't locate object method "base"/;
package MyApp::Templates2;
use base 'Template::Declare';
use Template::Declare::Tags 'XUL';
template main => sub {
xul_tempalte {}
};
Template::Declare->init( roots => ['MyApp::Templates2']);
my $out = Template::Declare->show('main') . "\n";
::is $out, <<_EOC_;
<template />
_EOC_