diff --git a/t/app.t b/t/app.t index 71d32e7..ccb33ef 100644 --- a/t/app.t +++ b/t/app.t @@ -1,6 +1,27 @@ use strict; use warnings; use Test::More; + BEGIN { use_ok('CoprStatus') } -done_testing; +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(); -- libgit2 0.21.2