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