#########################
use Test::More tests => 5;
BEGIN { use_ok 'HTML::BBCode'; }
#########################
use strict;
my $bbc = new HTML::BBCode;
isa_ok($bbc, 'HTML::BBCode');
my $text = "[url=http://search.cpan.org/perldoc?HTML::BBCode]HTML::BBCode[/url]";
is($bbc->parse($text), '<a href="http://search.cpan.org/perldoc?HTML%3A%3ABBCode">HTML::BBCode</a>');
$text = "[url=http://search.cpan.org/perldoc?HTML%3A%3ABBCode]HTML::BBCode[/url]";
is($bbc->parse($text), '<a href="http://search.cpan.org/perldoc?HTML%3A%3ABBCode">HTML::BBCode</a>');
$text = "[url=http://search.cpan.org/perldoc?HTML%3A:BBCode]HTML::BBCode[/url]";
is($bbc->parse($text), '<a href="http://search.cpan.org/perldoc?HTML%3A%3ABBCode">HTML::BBCode</a>');