Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/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';
- }
- }
Add Comment
Please, Sign In to add comment