use Test::More;
use strict; use warnings FATAL => 'all';
use_ok( 'IRC::Toolkit::Colors' );
my $str;
ok( $str = color('bold', "A string"), 'color() ok' );
cmp_ok( $str, 'eq', "\x02A string\x0f", 'bold string ok' );
$str = color('bold', "Start bold") ." end normal";
cmp_ok( $str,
'eq',
"\x02Start bold\x0f end normal",
'bold interpolated ok'
);
ok has_color($str), 'bold str has_color()';
my $stripped = strip_color($str);
ok !has_color($stripped), 'stripped str !has_color()';
ok $stripped eq 'Start bold end normal', 'stripped str looks ok';
done_testing;