use warnings;
use strict;
package Wifty::UI;
use base qw/Template::Declare/;
use Template::Declare::Tags;
use Test::More tests =>2 ;
template simple => sub {
html {
head { }
body {
form { attr { target => '/page.html', method => 'POST' };
input {
attr{ type => 'text'} };
}
}
}
};
package Template::Declare::Tags;
require "t/utils.pl";
use Test::More;
our $self;
local $self = {};
bless $self, 'Wifty::UI';
Template::Declare->init( roots => ['Wifty::UI']);
{
Template::Declare->buffer->clear;
my $simple =(show('simple'));
ok($simple =~ '<form', "we have a form");
#diag ($simple);
ok_lint($simple);
}
1;