Print the result of last tests

proofcheck.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Cwd;
use YAML::Any;
use Term::ANSIColor;

my $prove_file = Cwd::getcwd() . "/.prove";
if (-f $prove_file) {
    my $test_results = YAML::Any::LoadFile($prove_file)->{tests};
    my $failed_tests = [];
    for my $file (keys %$test_results) {
        push @$failed_tests, $file if $test_results->{$file}->{last_result} > 0;
    }
    if (@$failed_tests) {
        print colored 'NG: ', 'red';
        print join ", ", map { sprintf "%s", $_ } @$failed_tests;
    }else {
        print colored 'OK', 'green';
    }
}