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