use strict;
use warnings;
use Test::More tests => 2;
use XML::Feed::Deduper;
use File::Temp;
use FindBin;
use URI;
my $tmp = File::Temp->new(UNLINK => 1);
my $deduper = XML::Feed::Deduper->new(
path => $tmp->filename
);
{
my $feed = XML::Feed->parse( URI->new("file://$FindBin::Bin/samples/01.rss") )
or die XML::Feed->errstr;
my @entries = $deduper->dedup($feed->entries);
ok(scalar @entries eq 1, 'store');
}
$deduper = XML::Feed::Deduper->new(
path => $tmp->filename
);
{
my $feed = XML::Feed->parse( URI->new("file://$FindBin::Bin/samples/01.rss") )
or die XML::Feed->errstr;
my @entries = $deduper->dedup($feed->entries);
ok(scalar @entries eq 0, 'sync');
}