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
64
65
66
67
68
69
70
71
72
73
74
|
# $Id: 02coverage.t 8055 2018-08-13 11:41:21Z gavin $
use strict;
use lib '.';
use Texinfo::ModulePath (undef, undef, 'updirs' => 2);
require 't/test_utils.pl';
# These tests are supposed to test the same things as tests
# under tp/tests did, but to be faster, as we are avoiding the
# start-up time of perl for every one.
my @test_cases = (
['double_index_entry',
undef,
{'test_file' => 'double_index_entry.texi' },
],
['split_chapter_index',
undef,
{'test_file' => 'split_chapter_index.texi' },
{'SPLIT' => 'chapter'}
],
['index_split',
undef,
# we use CHECK_NORMAL_MENU_STRUCTURE as this tests
# for a case that may only be tested here (Top before node)
# It also tests for node with directions after section which is
# also in 96moresectioning.t
{'test_file' => 'index_split.texi', 'CHECK_NORMAL_MENU_STRUCTURE' => 1},
{'SPLIT' => 'chapter'}
],
['index_split_nodes',
undef,
{'test_file' => 'index_split.texi' },
{'USE_NODES' => 1, 'SPLIT' => 'nodes'}
],
['index_no_node',
undef,
{'test_file' => 'index_no_node.texi' },
{'SPLIT' => 'chapter'}
],
['nodes_before_top',
undef,
{'test_file' => 'nodes_before_top.texi' },
{'USE_NODES' => 1, 'SPLIT' => 'chapter'}
],
['nodes_before_top_nodes',
undef,
{'test_file' => 'nodes_before_top.texi' },
{'USE_NODES' => 1, 'SPLIT' => 'node'}
],
['nodes_before_top_no_nodes',
undef,
{'test_file' => 'nodes_before_top.texi' },
{'SPLIT' => 'chapter'}
],
['nodes_before_top_and_sections_monolithic',
undef,
{'test_file' => 'nodes_before_top_and_sections.texi' },
],
);
foreach my $test (@test_cases) {
if (!$test->[2]->{'test_formats'}) {
push @{$test->[2]->{'test_formats'}}, 'file_html';
}
$test->[3]->{'TEXI2HTML'} = 1;
$test->[3]->{'TEST'} = 1;
$test->[3]->{'PROGRAM'} = 'texi2any';
$test->[3]->{'PACKAGE_URL'} = 'http://www.gnu.org/software/texinfo/';
}
our ($arg_test_case, $arg_generate, $arg_debug);
run_all ('moreindices', [@test_cases], $arg_test_case, $arg_generate, $arg_debug);
|