#! perl -w
use strict;
use Cwd;
use Test::More;
use Babble;
$main::TZ = "GMT";
eval q{require Babble::DataSource::RSS};
plan skip_all => 'Problem importing RSS datasource; ' .
'probably missing dependencies' if $@;
plan tests => 4;
my $babble = Babble->new ();
$babble->add_sources (
Babble::DataSource::RSS->new (
-location => 'file:' . cwd() . "/t/data/1.rss",
),
);
isa_ok ($babble->{Sources}[0], "Babble::DataSource::RSS");
# Lets collect the feeds.
$babble->collect_feeds ();
# Did we collect something?
if (eq_array ($babble->{Collection}->{documents}, [])) {
fail ("collect_feed() run");
} else {
pass ("collect_feed() run");
}
my @all = $babble->all ();
ok ($#all == 0, "Number of documents fetched: " . ($#all + 1).
" (should be 1)");
# Are they ok?
like ($all[0]->{title}, qr/Babble!/,
"First document's title is like 'Babble!'");
# arch-tag: 1afe292c-659d-4add-9908-72c60355689b