1# -*- perl -*- 2 3# t/003_parsesearchxml.t - checks loading search api query and results parsing 4 5use Test::More tests => 3; 6use XML::XPath; 7use XML::Parser; 8use WebService::Technorati; 9use FindBin qw($Bin); 10 11my $apiKey = 'a_key_that_wont_work_with_a_live_query'; 12my $keyword = '"George Bush"'; 13my $t = WebService::Technorati->new(key => $apiKey); 14my $sq = $t->getSearchApiQuery($keyword); 15 16my $parser = new XML::Parser(NoLWP => 1); 17my $result_xp = XML::XPath->new( 18 parser => $parser, 19 filename => "$Bin/testdata/search.xml"); 20$sq->readResults($result_xp); 21 22my $search_term = $sq->getSubjectSearchTerm(); 23isa_ok($search_term, 'WebService::Technorati::SearchTerm'); 24my @matches = $sq->getSearchMatches(); 25is(19, $#matches); 26my $match = pop(@matches); 27isa_ok($match, 'WebService::Technorati::SearchMatch'); 28 29 30 31