my $str = '';
my $w = XML::Genx->new;
eval {
	$w->StartDocSender( sub { $str .= shift; } );
	$w->StartElementLiteral( 'foo' );
	$w->AddText( 'bar' );
	$w->AddText( '' );
	$str .= chr 1;
	$w->AddText( 'baz' );
	$w->EndElement;
	$w->EndDocument;
};
die "Writing XML failed: $@" if $@;