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 my $three = html('<tag>');
  20
  21 $three .= $hi;
  22
  23 $three .= html('</tag>');
  24
  25 is("$three", '<tag>Hi &lt;bob&gt;</tag>');
  26
  27 my $four; {
  28   use HTML::String::Overload { ignore => { lies => 1 } };
  29
  30   #$four = "<tag>".$hi."</tag>\n";
  31   $four = "<tag>$hi</tag>"."\n";
  32 };
  33
  34 chomp($four);
  35
  36 is("$four", '<tag>Hi &lt;bob&gt;</tag>');
  37
  38 done_testing;