Index: lang/perl/mobirc/trunk/t/Plugins/MessageBodyFilter/decorate-irc-color.t =================================================================== --- lang/perl/mobirc/trunk/t/Plugins/MessageBodyFilter/decorate-irc-color.t (revision 13231) +++ lang/perl/mobirc/trunk/t/Plugins/MessageBodyFilter/decorate-irc-color.t (revision 13231) @@ -0,0 +1,51 @@ +use strict; +use warnings; +use Data::Dumper; +use App::Mobirc; + +use Test::Base; +eval q{ use String::IRC }; +plan skip_all => "String::IRC is not installed." if $@; + +my $global_context = App::Mobirc->new( + { + httpd => { lines => 40 }, + global => { keywords => [qw/foo/] } + } +); +$global_context->load_plugin( { module => 'MessageBodyFilter::IRCColor', config => { no_decorate => 0} } ); + +filters { + input => ['eval', 'decorate_irc_color'], +}; + +sub decorate_irc_color { + my $x = shift; + ($x,) = $global_context->run_hook_filter('message_body_filter', $x); + return $x; +} + +run_is input => 'expected'; + +__END__ + +=== +--- input: String::IRC->new('world')->yellow('green') +--- expected: world + +=== +--- input: String::IRC->new('world')->red('green') +--- expected: world + +=== +--- input: String::IRC->new('world')->red('green')->bold; +--- expected: world + +=== inverse is nop.because, html cannot use inverse. +--- input: String::IRC->new('world')->inverse +--- expected: world + +=== +--- input: String::IRC->new('world')->underline +--- expected: world + Index: lang/perl/mobirc/trunk/t/Plugins/MessageBodyFilter/no-decorate-irc-color.t =================================================================== --- lang/perl/mobirc/trunk/t/Plugins/MessageBodyFilter/no-decorate-irc-color.t (revision 13231) +++ lang/perl/mobirc/trunk/t/Plugins/MessageBodyFilter/no-decorate-irc-color.t (revision 13231) @@ -0,0 +1,38 @@ +use strict; +use warnings; +use App::Mobirc; + +use Test::Base; +eval q{ use String::IRC }; +plan skip_all => "String::IRC is not installed." if $@; + +my $global_context = App::Mobirc->new( + { + httpd => { lines => 40 }, + global => { keywords => [qw/foo/] } + } +); +$global_context->load_plugin( { module => 'MessageBodyFilter::IRCColor', config => { no_decorate => 1} } ); + +filters { + input => ['eval', 'decorate_irc_color'], +}; + +sub decorate_irc_color { + my $x = shift; + ($x,) = $global_context->run_hook_filter('message_body_filter', $x); + return $x; +} + +run_is input => 'expected'; + +__END__ + +=== +--- input: String::IRC->new('world')->yellow('green') +--- expected: world + +=== +--- input: String::IRC->new('world')->red('green') +--- expected: world + Index: lang/perl/mobirc/trunk/t/Plugins/MessageBodyFilter/clickable.t =================================================================== --- lang/perl/mobirc/trunk/t/Plugins/MessageBodyFilter/clickable.t (revision 13231) +++ lang/perl/mobirc/trunk/t/Plugins/MessageBodyFilter/clickable.t (revision 13231) @@ -0,0 +1,112 @@ +use strict; +use warnings; +use Test::Base; +use App::Mobirc; + +plan tests => 1*blocks; + +filters { + input => ['yaml', 'clickable' ] +}; + +sub clickable { + my $x = shift; + my $global_context = App::Mobirc->new( + { + httpd => { lines => 40 }, + global => { keywords => [qw/foo/] } + } + ); + $global_context->load_plugin( { module => 'MessageBodyFilter::Clickable', config => $x->{conf} } ); + my ($res, ) = $global_context->run_hook_filter('message_body_filter', $x->{text}); + $res; +} + +run_is input => 'expected'; + +__END__ + +=== basic +--- input +text: http://d.hatena.ne.jp/ +conf: ~ +--- expected: http://d.hatena.ne.jp/ + +=== basic with amp +--- input +text: http://www.google.co.jp/search?hl=ja&q=foo +conf: ~ +--- expected: http://www.google.co.jp/search?hl=ja&q=foo + +=== basic scheme restrict +--- input +text: http://d.hatena.ne.jp/ +conf: + accept_schemes: [mailto] +--- expected: http://d.hatena.ne.jp/ + +=== basic with http_link_string +--- input +text: http://d.hatena.ne.jp/hatenachan/ +conf: + http_link_string: $host$path +--- expected: d.hatena.ne.jp/hatenachan/ + +=== tel +--- input +text: 000-0000-0000 +conf: ~ +--- expected: 000-0000-0000 + +=== tel with scheme +--- input +text: tel:000-0000-0000 +conf: ~ +--- expected: tel:000-0000-0000 + +=== mailto +--- input +text: aaa@example.com +conf: ~ +--- expected: aaa@example.com + +=== mailto with scheme +--- input +text: mailto:aaa@example.com +conf: ~ +--- expected: mailto:aaa@example.com + +=== mailto +--- input +text: +conf: ~ +--- expected: <mailto:aaa@example.com> + +=== pocket hatena +--- input +text: http://d.hatena.ne.jp/ +conf: + pocket_hatena: 1 +--- expected: http://d.hatena.ne.jp/[ph] + +=== au_pcsv +--- input +text: http://d.hatena.ne.jp/ +conf: + au_pcsv: 1 +--- expected: http://d.hatena.ne.jp/[PCSV] + +=== au_pcsv with amp +--- input +text: http://www.google.co.jp/search?hl=ja&q=foo +conf: + au_pcsv: 1 +--- expected: http://www.google.co.jp/search?hl=ja&q=foo[PCSV] + +=== google_gwt +--- input +text: http://d.hatena.ne.jp/ +conf: + google_gwt: 1 +--- expected: http://d.hatena.ne.jp/[gwt] +