3 #****h* ROBODoc System Tests/Wiki Formatting
5 # Tests that test the Wiki like formatting that ROBODoc supports.
9 #------------------------------------------------------------------------------
13 use Test::More 'no_plan';
18 #****x* Wiki Formatting/Wiki Basics
20 # Test a simple header: contains three lists, some paragraphs,
21 # and some source. All should be recognized.
29 * Implements serializers for the following
31 * - DZB_ACG - SAP accounting file record.
32 * - DZB_RRP - regularoty reporting file record.
33 * - DZB_MVT - Exchange Position File Record.
37 * Implements the following
39 * - S99304_SERIALIZE_DZB_ACG
40 * - S99304_SERIALIZE_DZB_ACG_TBL
41 * - S99304_SERIALIZE_DZB_MVT
43 * - S99304_SERIALIZE_DZB_MVT_TBL
44 * - S99304_SERIALIZE_DZB_RRP
45 * - S99304_SERIALIZE_DZB_RRP_TBL
54 add_source( "test.c", $source );
55 my ( $out, $err ) = runrobo(qw(--src Src --doc Doc --nopre --multidoc --test));
57 is( $out, '', 'No ouput' );
58 is( $err, '', '... and no error' );
60 my $documentation = XMLin( 'Doc/test_c.xml' );
61 my $header = $documentation->{'header'};
62 is ( $header->{'name'}, 'Test/Test', 'Header is named Test/Test' );
63 my $items = $header->{'item'};
64 ok ( exists( $items->{'NAME'} ), 'header has an item NAME' );
65 ok ( exists( $items->{'SOURCE'} ), 'header has an item SOURCE' );
66 my $body = $items->{'NAME'}->{'item_body'};
68 # There are paragraphs.
69 ok ( exists( $body->{'para'} ), 'item has paragraphs' );
71 # There are three lists.
72 is ( scalar( @{ $body->{'list'} } ), 3, 'item has three lists' );