# 00-basic.t
#
# Test suite for HTML::Rainbow
# Make sure the basic stuff works
#
# copyright (C) 2009 David Landgren
use strict;
use Test::More tests => 6;
diag( "testing HTML::Rainbow v$HTML::Rainbow::VERSION" );
BEGIN { use_ok('HTML::Rainbow', 'rainbow') }
like (rainbow('a'), qr{<font color="#[\da-f]{6}">a</font>}, 'rainbow a');
like (rainbow('ab'),
qr{<font color="#[\da-f]{6}">a</font><font color="#[\da-f]{6}">b</font>},
'rainbow ab'
);
like (rainbow('a b'),
qr{<font color="#[\da-f]{6}">a</font> <font color="#[\da-f]{6}">b</font>},
'rainbow a b'
);
is (rainbow(undef), '', 'rainbow undef');
like (rainbow(undef, 'a'), qr{<font color="#[\da-f]{6}">a</font>}, 'rainbow undef a');