use warnings;
use strict;


package Wifty::UI;
use base qw/Template::Declare/;
use Template::Declare::Tags;
use Test::More tests => 8;


template content => sub { div { outs('This is my <b>content</b>') } };
template content_2 => sub { div { 'This is my <b>content</b>' } };
template content_3 => sub { div { p{ 'This is my <b>content</b>'}}; };
template content_4 => sub { div { p{ outs('This is my '); b{ 'content'}}}; };

package Template::Declare::Tags;

use Test::More;
require "t/utils.pl";

our $self;
local $self = {};
bless $self, 'Wifty::UI';

Template::Declare->init( dispatch_to => ['Wifty::UI']);


for (qw(content content_2 content_3 ) ){
{
Template::Declare->buffer->clear;
my $simple =(show($_));
ok($simple =~ 'This is my &lt;b&gt;content', $simple);
ok_lint($simple);
}
}
for (qw(content_4) ){
{
Template::Declare->buffer->clear;
my $simple =(show($_));
ok($simple =~ m/This is my\s*<b>\s*content/, $simple);
ok_lint($simple);
}
}


1;