use t::Utils;
use App::Mobirc::Web::View;
use App::Mobirc;
use Test::Base::Less;
use Test::Requires 'YAML', 'Test::LongString';
use Test::Deep;

local $ENV{TZ} = 'Asia/Tokyo';

filters {
    input => [\&YAML::Load],
    expected => [\&strip],
};

run {
    my $block = shift;
    no warnings 'redefine';
    local *App::Mobirc::Plugin::Component::IRCClient::current_nick = sub { 'tokuhirom' };
    my $message = App::Mobirc::Model::Message->new( $block->input );
    my $got = test_view('parts/irc_message.mt', $message);
    is_string(strip($got), $block->expected);
};
done_testing;

sub strip {
    local $_ = shift;
    s!^\n!!;
    s!\n+$!!;
    s!^\s*$!!smg;
    $_ .= "\n";
    $_;
}

__END__

=== SIMPLE
--- input
channel: #test
who    : yappo
body   : YAY<>
time   : 1211726004
class  : public
--- expected
<span class="time"><span class="hour">23</span><span class="colon">:</span><span class="minute">33</span></span><span class="nick_normal">(yappo)</span><span class="public">YAY&lt;&gt;</span>

=== mine
--- input
channel: #mobirc
class: public
time: 1211726004
who: tokuhirom
body: uh*aww
--- expected
<span class="time"><span class="hour">23</span><span class="colon">:</span><span class="minute">33</span></span><span class="nick_myself">(tokuhirom)</span><span class="public">uh*aww</span>

=== XSS check
--- input
channel: #mobirc
class: public<
time: 212
who: tokuhirom<
body: uh*aww<
--- expected
<span class="time"><span class="hour">09</span><span class="colon">:</span><span class="minute">03</span></span><span class="nick_normal">(tokuhirom&lt;)</span><span class="public&lt;">uh*aww&lt;</span>