#!/usr/bin/perl -w

use strict;
use Test::Repocop::Options;
use Test::Repocop::TestDB;
$Repocop::arg::reportlevel ='experimental';

&Test::Repocop::Options::get_common_options();
&Test::Repocop::Options::die_if_nothing_to_report();
my @types=qw/fail warn info experimental/;
my %sum;
foreach my $type (@types) {
    $sum{$type}=0;
}

my $testdb=Test::Repocop::TestDB->new();
my $cache=$testdb->get_pkg_test_status_iterator();
while (my ($rpm,$test,$status)=$cache->iterate3_filtered()) {
    $sum{$status}++;
}

foreach my $type (@types) {
    print $sum{$type},"\n";
}
