use Test::More;
plan tests => 5;

use_ok("Net::ITE");

my $ite = Net::ITE->new();
isa_ok($ite,"Net::ITE");

my @list = $ite->topics(TOPIC);

my $count = scalar(@list);
ok($count,"$count topic(s)");

my $topic = $list[rand($count -1)];
isa_ok($topic,"Net::ITE::Topic");

ok($topic->title(),$topic->title());