view release on metacpan or  search on metacpan

t/02filter.t  view on Meta::CPAN

	}
	
	return 1;
}

ok(test05_complex_string());

sub test_iso_encoded_content {
	my $encoding  = "ISO-8859-1";
	my $value     = "bärföo";
	my $cdata     = "<foo/>bär<foo>föo</foo>";

	my $handler   = XML::LibXML::SAX::Builder->new();
	my $filter    = XML::Filter::CharacterChunk->new(
						Encoding=> $encoding,
						TagName => ["a"],
						Handler => $handler
							);

	$filter->start_document();
	$filter->start_element({Name=>"a", LocalName=>"a", Prefix=>""});
	$filter->characters( {Data=>$cdata} );
	$filter->end_element({Name=>"a", LocalName=>"a", Prefix=>""});
	$dom = $filter->end_document();

	unless ( defined $dom ) {
		print "#  parser error, filter did not create a document\n";
		return 0;
	}

	if ( defined $dom->encoding() and $dom->encoding() ne "UTF8" ) {
		print "#  document has not the expected encoding (". $dom->encoding() .")\n";