#########################

use Test::More tests => 4;
BEGIN { use_ok 'HTML::BBCode'; }

#########################

use strict;

my $bbc = new HTML::BBCode;
isa_ok($bbc, 'HTML::BBCode', 'default');

my $result = '<span style="font-weight:bold">strong</span>'; 
my $text = "[B]strong[/B]";
is($bbc->parse($text), $result, "ALL UPPER CASE");
$text = "[B]strong[/b]";
is($bbc->parse($text), $result, "MiXeD CaSe");