use Test::More; plan tests => 7; use constant TOPIC => "test"; use constant URL => "http://topicexchange.com/t/test/"; use_ok("Net::ITE"); my $ite = Net::ITE->new(); isa_ok($ite,"Net::ITE"); my $topic = $ite->topic(TOPIC); isa_ok($topic,"Net::ITE::Topic"); cmp_ok($topic->url(),"eq",URL,$topic->url()); my $posts = $topic->posts(); isa_ok($posts,"Net::ITE::Iterator"); ok($posts->count(),$posts->count()." post(s)"); while (my $item = $posts->next()) { print $item->title()."\n"; print $item->excerpt()."\n"; } ok(1);