[scpubgit/HTML-String.git] / t / simple.t

use strictures 1;
use Test::More;
use HTML::String;

my $hi = 'Hi <bob>';

my $one = html('<tag>').$hi.html('</tag>');

is("$one", '<tag>Hi &lt;bob&gt;</tag>');

my $two = do {
  use HTML::String::Overload;

  "<tag>${hi}</tag>"
};

is("$two", '<tag>Hi &lt;bob&gt;</tag>');

done_testing;
Commit	Line	Data
e1b4b35c	1	use strictures 1;
	2	use Test::More;
	3	use HTML::String;
	4
	5	my $hi = 'Hi <bob>';
	6
	7	my $one = html('<tag>').$hi.html('</tag>');
	8
	9	is("$one", '<tag>Hi <bob></tag>');
	10
	11	my $two = do {
	12	use HTML::String::Overload;
	13
	14	"<tag>${hi}</tag>"
	15	};
	16
	17	is("$two", '<tag>Hi <bob></tag>');
	18
	19	done_testing;