4 #****h* ROBODoc System Tests/Encoding
6 # Test decoding en encoding of non 7bit ASCII characters.
12 use Test::More 'no_plan';
18 # This tests a header with item names that start with
19 # an letter with an umlaut.
20 # ROBODoc currently has some problems with this.
24 my $source = read_hexdump( 'TestData/iso8859-1_german_header_c.xxd' );
25 my $config = read_hexdump( 'TestData/iso8859-1_german_robodoc_rc.xxd' );
27 add_source( "test.c", $source, 'binary' );
28 add_configuration( "test.rc", $config, 'binary' );
30 my ( $out, $err ) = runrobo(qw(
34 --singledoc --test --nopre ));
36 is( $out, '', 'No ouput' );
37 is( $err, '', '... and no error' );
38 file_exists_ok( "Doc/test.xml", 'there should be documentation' );
40 my $documentation = XMLin( 'Doc/test.xml' );
41 my $header = $documentation->{'header'};
42 # is ( $header->{'name'}, 'Test Foo Bar/Name With Spaces', 'Header name' );
43 my $items = $header->{'item'};
44 print Dumper( $items );
45 my $body = $items->{'FUNCTION'}->{'item_body'};
47 # TODO currently a bug in robodoc.
48 is( $body->{'pre'}, undef, 'No preformatted stuff in the body' );