1use strict;
2use warnings;
3
4use Test::More tests => 54;
5
6use_ok('XML::Reader');
7
8my @subs = qw(
9  XML::Reader::import
10  XML::Reader::activate
11  XML::Reader::new
12  XML::Reader::path
13  XML::Reader::value
14  XML::Reader::tag
15  XML::Reader::attr
16  XML::Reader::att_hash
17  XML::Reader::dec_hash
18  XML::Reader::type
19  XML::Reader::level
20  XML::Reader::prefix
21  XML::Reader::comment
22  XML::Reader::pyx
23  XML::Reader::rx
24  XML::Reader::rvalue
25  XML::Reader::proc_tgt
26  XML::Reader::proc_data
27  XML::Reader::is_decl
28  XML::Reader::is_start
29  XML::Reader::is_proc
30  XML::Reader::is_comment
31  XML::Reader::is_text
32  XML::Reader::is_attr
33  XML::Reader::is_value
34  XML::Reader::is_end
35  XML::Reader::NB_data
36  XML::Reader::NB_fh
37  XML::Reader::iterate
38  XML::Reader::get_token
39  XML::Reader::handle_decl
40  XML::Reader::handle_procinst
41  XML::Reader::handle_comment
42  XML::Reader::handle_start
43  XML::Reader::handle_end
44  XML::Reader::handle_char
45  XML::Reader::convert_structure
46  XML::Reader::DESTROY
47  XML::Reader::slurp_xml
48  XML::Reader::Token::found_start_tag
49  XML::Reader::Token::found_end_tag
50  XML::Reader::Token::found_attr
51  XML::Reader::Token::found_text
52  XML::Reader::Token::extract_tag
53  XML::Reader::Token::extract_attkey
54  XML::Reader::Token::extract_attval
55  XML::Reader::Token::extract_text
56  XML::Reader::Token::extract_comment
57  XML::Reader::Token::extract_prv_SPECD
58  XML::Reader::Token::extract_nxt_SPECD
59  XML::Reader::Token::extract_attr
60  XML::Reader::Token::extract_proc
61  XML::Reader::Token::extract_decl
62);
63
64my $tctr = 0;
65
66for my $s (@subs) {
67    $tctr++;
68
69    ok(defined(&{$s}), "Test-".sprintf('%03d', $tctr)." sub $s is defined");
70}
71