<commit_before>use strict;
use warnings;
use Test::More;
BEGIN { use_ok('CoprStatus') }

done_testing; <commit_msg>add some tests<commit_after>use strict;
use warnings;
use Test::More;

BEGIN { use_ok('CoprStatus') }

my $info = CoprStatus::copr_info();
ok(ref($info), 'HASH');
foreach my $key (keys %{$info}) {
  ok(ref($info->{$key}), 'HASH');
  ok($info->{$key}->{'git_version'});
  ok($info->{$key}->{'v4_version'});
  ok($info->{$key}->{'v5_version'});
  like($info->{$key}->{'v4_version'}, qr/[[:ascii:]]+-[[:ascii:]]+/);
  like($info->{$key}->{'v5_version'}, qr/[[:ascii:]]+-[[:ascii:]]+/);
  like($info->{$key}->{'git_version'}, qr/[[:ascii:]]+-[[:ascii:]]+/);
}

my $match = CoprStatus::compare_versions;
ok(ref($match), 'HASH');
foreach my $key (keys %{$match}) {
  like($match->{$key}, qr/1|0/);
}

# TODO: test info2html() and build_html()

done_testing();
{'fraction_non_alphanumeric': 0.2960829493087558, 'fraction_numerical': 0.008064516129032258, 'mean_word_length': 6.491379310344827, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 17, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '3531074', 'n_tokens_mistral': 364, 'n_tokens_neox': 352, 'n_words': 58}