use strict;
use warnings;
use Test::More;

ok( do './foostats.pl', 'loaded foostats.pl' );

# Ensure odds file exists before creating filter/aggregator
open my $odd, '>', 't/tmp_odds.txt' or die $!;
print $odd "\n";
close $odd;

my $agg = Foostats::Aggregator->new( 't/tmp_odds.txt', 't/tmp_filter_log' );

my $date = 20250101;

my $events = [
    {
        proto    => 'web',
        host     => 'example.org',
        ip_hash  => 'ip1',
        ip_proto => 'IPv4',
        date     => $date,
        time     => '120000',
        uri_path => '/gemfeed/atom.xml',
        status   => 200
    },
    {
        proto    => 'gemini',
        host     => 'example.org',
        ip_hash  => 'ip2',
        ip_proto => 'IPv6',
        date     => $date,
        time     => '120100',
        uri_path => '/gemfeed/',
        status   => 20
    },
    {
        proto    => 'web',
        host     => 'example.org',
        ip_hash  => 'ip3',
        ip_proto => 'IPv4',
        date     => $date,
        time     => '120200',
        uri_path => '/gemfeed/index.gmi',
        status   => 200
    },
    {
        proto    => 'web',
        host     => 'example.org',
        ip_hash  => 'ip4',
        ip_proto => 'IPv4',
        date     => $date,
        time     => '120300',
        uri_path => '/index.html',
        status   => 200
    },
];

$agg->add($_) for @$events;

my $stats = $agg->{stats}{ "web_" . $date };
ok( $stats, 'have web stats for date' );
use Test::More;
diag( "web stats: ", join( ',', sort keys %{ $stats->{feed_ips}{atom_feed} } ) );
is( scalar( keys %{ $stats->{feed_ips}{atom_feed} } ), 1, 'one atom feed IP' );
is( scalar( keys %{ $stats->{feed_ips}{gemfeed} } ),   1, 'one gemfeed IP (from web)' );

my $gstats = $agg->{stats}{ "gemini_" . $date };
ok( $gstats, 'have gemini stats for date' );
diag( "gemini feed keys: ", join( ',', sort keys %{ $gstats->{feed_ips}{gemfeed} } ) );
is( scalar( keys %{ $gstats->{feed_ips}{gemfeed} } ), 1, 'one gemfeed IP (from gemini)' );

done_testing;