#!/usr/bin/perl -w

use strict;
use warnings;
use Test::Repocop::TestDB;
use Test::Repocop::CLI::Base;
our @ISA=qw/Test::Repocop::CLI/;
__PACKAGE__->get_and_process_cli_options();
&Test::Repocop::Workdir::die_if_nothing_to_report();

# TODO: use repocop constants defined in Test::Repocop::TestDB::Status
my @status_not_ok=qw/fail warn info experimental/;
my @status_all=qw/fail warn info experimental skip ok/;

my %sum;
map {$sum{$_}=0} @status_all; # to avoid warnings
my $testdb=Test::Repocop::TestDB->new();
my $cache=$testdb->get_pkg_test_status_iterator();
while (my ($rpm,$test,$status)=$cache->iterate3()) {
    $sum{$status}++;
}

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