#!perl -w
# $Id: /local/CPAN/Mango/trunk/t/catalyst/view_html.t 1959 2007-08-10T05:27:29.884596Z claco  $
use strict;
use warnings;
BEGIN {
    use lib 't/lib';
    use Mango::Test;
    use Mango::Test::Catalyst;
    eval 'require Directory::Scratch';
    if($@) {
        plan skip_all => 'Directory::Scratch not installed';
    } else {
        plan tests => 5;
    };
    use_ok('Mango::Catalyst::View::HTML');
};
my $temp = Directory::Scratch->new;
my $dir  = $temp->mkdir('templates/tt/html');
my $file = $temp->touch('templates/tt/html/default', 'htmlfoo');
$temp->touch('templates/tt/html/wrapper', 'htmlwrapper: [% content %]');
$ENV{'MANGO_SHARE'} = $temp;
my $c = Mango::Test::Catalyst->new({
    config => {
        home => 't',
        root => 't'
    },
    stash => {
        template => $file->basename
    }
});
my $view = $c->view('HTML');
isa_ok($view, 'Mango::Catalyst::View::HTML');
## check the content type header
{
    ok($view->process($c));
    is($c->response->content_type, 'text/html; charset=utf-8');
    SKIP: {
        skip 'Test::LongString not installed', 1 unless eval 'require Test::LongString';
        Test::LongString::is_string_nows($c->response->body, 'htmlwrapper:htmlfoo');
    };
};