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 => { non_existant_package_name => 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 {
  39     package MyPkg;
  40
  41     sub new { 'foo' }
  42
  43     sub load { 'bar' }
  44 }
  45
  46 is(html('MyPkg')->new, 'foo');
  47
  48 is(html('MyPkg')->load, 'bar');
  49
  50 done_testing;