root/lang/perl/String-IRC/trunk/t/03.complex.t @ 10701

# -*- mode: cperl; -*-
use Test::Base;
use String::IRC;

plan tests => 1 * blocks;

run {
    my $block = shift;
    my $x = String::IRC->new( $block->input );

    my @methods = split /\s+/, $block->name;
    $x->$_() for @methods;

    is "$x", $block->expect, $block->name;
};

__END__
=== bold yellow
--- input:  hello
--- expect: 8hello
=== bold yellow underline
--- input:  hello
--- expect: 8hello
=== bold yellow underline inverse
--- input:  hello
--- expect: 8hello