Show
Ignore:
Timestamp:
10/30/07 19:47:32 (6 years ago)
Author:
tokuhirom
Message:

lang/perl/mobirc: now text filter is pluggable(WARNINGS: INCOMPATIBLE CHANGE!!)

Files:
1 moved

Legend:

Unmodified
Added
Removed
  • lang/perl/mobirc/trunk/mobirc/t/05-filter-decorate_irc_color.t

    r896 r916  
    22use warnings; 
    33use Data::Dumper; 
     4use Mobirc::HTTPD::Filter::DecorateIRCColor;; 
    45 
    56use Test::Base; 
    67eval q{ use String::IRC }; 
    78plan skip_all => "String::IRC is not installed." if $@; 
    8 use Mobirc::Util; 
    99 
    1010filters { 
    1111    input => ['eval', 'decorate_irc_color'], 
    1212}; 
     13 
     14sub decorate_irc_color { 
     15    my $x = shift; 
     16    Mobirc::HTTPD::Filter::DecorateIRCColor->process( $x, {} ); 
     17} 
    1318 
    1419run_is input => 'expected';