The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
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);