1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
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;
|
