"Fossies" - the Fresh Open Source Software Archive

Member "texinfo-6.5/tp/t/docbook_tests.t" (22 Apr 2014, 973 Bytes) of package /linux/misc/texinfo-6.5.tar.xz:


As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 use strict;
    2 
    3 use File::Spec;
    4 BEGIN { if (defined($ENV{'top_srcdir'})) {unshift @INC, File::Spec->catdir($ENV{'top_srcdir'}, 'tp');} }
    5 
    6 require 't/test_utils.pl';
    7 
    8 # special docbook quotations are tested for in 181quotation.t
    9 my @test_cases = (
   10 ['empty_quotation_with_arg_followed_by_quotation',
   11 '@quotation something
   12 @end quotation
   13 
   14 @quotation
   15 In quotation
   16 @end quotation
   17 '],
   18 ['special_docbook_unnumbered',
   19 '@node Top
   20 @top top
   21 
   22 This is the top.
   23 
   24 @menu
   25 * Dedication::
   26 * preface::
   27 * glossary::
   28 * acknowledgements::
   29 @end menu
   30 
   31 @node Dedication
   32 @unnumbered a dedication
   33 
   34 Dedicated
   35 
   36 @node preface
   37 @unnumbered The Preface
   38 
   39 Preface.
   40 
   41 @node colophon
   42 @unnumbered A colophon
   43 
   44 Glossary
   45 
   46 @node acknowledgements
   47 @chapter A chapter Acnkowledgements
   48 
   49 Ack!
   50 ']
   51 );
   52 
   53 foreach my $test (@test_cases) {
   54   $test->[2]->{'test_formats'} = ['docbook'];
   55 }
   56 
   57 our ($arg_test_case, $arg_generate, $arg_debug);
   58 
   59 run_all ('docbook_tests', [@test_cases], $arg_test_case,
   60    $arg_generate, $arg_debug);
   61 
   62 1;
   63