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