1
# Before `make install' is performed this script should be runnable with
2
# `make test'. After `make install' it should work as `perl test.pl'
8
BEGIN { plan tests => 34, todo => [] }
15
my $p = XML::TokeParser->new('TokeParser.xml');
22
qq[\Q<pod xmlns="http://axkit.org/ns/2000/pod2xml">]
42
qq[\QXML::TokeParser - Simplified interface to XML::Parser]
90
qq[\Quse XML::TokeParser;]
103
for( 0.. $#tokens ) {
104
my $token = $p->get_token();
105
ok(2+$_) if $tokens[$_][0] eq $token->[0] and $token->[-1] =~ m{$tokens[$_][1]};
109
print "#",q[ Now testing get_tag, get_trimmed_text],"\n";
110
ok( $p->get_tag('title') );
111
print "#",q[$p->get_tag('title')],"\n";
113
ok( $p->get_trimmed_text('/title') eq 'DESCRIPTION' );
114
print "#",q[$p->get_trimmed_text('/title')],"\n";
116
ok( $p->get_tag('item') );
117
print "#",q[$p->get_tag('item')],"\n";
119
ok( $p->get_tag('itemtext') );
120
print "#",q[$p->get_tag('itemtext')],"\n";
122
ok( $p->get_trimmed_text('/itemtext') eq 'Start tag' );
123
print "#",q[$p->get_trimmed_text('/itemtext')],"\n";
126
print "#",q[ Now testing saving tokens so you can go return to this point in the stream],"\n";
127
ok( not $p->begin_saving() );
128
print "#",q[$p->begin_saving() ],"\n";
130
ok( $p->get_tag('para') );
131
print "#",q[$p->get_tag('para') 1],"\n";
133
ok( $p->get_tag('para') );
134
print "#",q[$p->get_tag('para') 2],"\n";
136
ok( $p->restore_saved() );
137
print "#",q[$p->restore_saved()],"\n";
140
print "#",q[ Now to see if we've backed up correctly (i think so)],"\n";
141
ok( $p->get_tag('para') );
142
print "#",q[$p->get_tag('para') 1],"\n";
143
ok( $p->get_tag('para') );
144
print "#",q[$p->get_tag('para') 2],"\n";
146
ok( $p->get_trimmed_text('/para') eq "The token has three elements: 'E', the element's name, and the literal text." );
148
#use Data::Dumper;die Dumper( );
149
#push @tokens, $p->get_token() for 1..10;use Data::Dumper;die Dumper\@tokens;