t/simple.t

   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 &lt;bob&gt;</tag>');
  10
  11 my $two = do {
  12   use HTML::String::Overload;
  13
  14   "<tag>${hi}</tag>"
  15 };
  16
  17 is("$two", '<tag>Hi &lt;bob&gt;</tag>');
  18
  19 done_testing;