use strict;
use warnings;
use HTML::Element;
use Test::More qw(no_plan);

my $nbsp = chr(160);
my $element = HTML::Element->new_from_lol(
   ['td', {"class"=>"zwischanspalte"}, $nbsp]
);

my $expected = '<td class="zwischanspalte">&nbsp;</td>';

my $html = $element->as_HTML();
is($html, $expected);