4 use Test::More 'no_plan';
7 #****h* ROBODoc System Tests/LaTeX Generator
9 # Test ROBODoc LaTeX generator.
14 #****v* LaTeX Generator/dummy_header_1
16 # A dummy header to put into dummy source files.
19 my $dummy_header_1 = <<'EOF';
24 C |latex \begin{equation}
26 C |latex \end{equation}
32 C |latex \begin{equation}
34 C |latex \end{equation}
36 C Generates screwy TeX
47 #****v* LaTeX Generator/dummy_header_2
49 # A dummy header to put into dummy source files.
52 my $dummy_header_2 = <<'EOF';
62 C Do da diddi do da dom dom.
80 #****x* LaTeX Generator/latex is balanced
82 # This function tests whether a generated latex file is balanced
83 # or not. That is every
89 # This is tested with several headers and in different modes.
93 my @sources = ( \$dummy_header_1, \$dummy_header_2 );
95 foreach my $source_ref ( @sources ) {
96 foreach my $mode_1 qw( --sections --toc --index ) {
97 foreach my $mode_2 qw( --nopre --altlatex ) {
99 add_source( "test.c", $$source_ref );
100 my ( $out, $err ) = runrobo(
105 ), $mode_1, $mode_2 );
107 is( $out, '', 'No ouput' );
108 is( $err, '', '... and no error' );
109 file_exists_ok( "Doc/test.tex", 'there should be documentation' );
110 is( is_latex_balanced( "Doc/test.tex" ), 1, 'latex is balanced' );