2 use strict; use warnings;
4 # enable autoflush on STDOUT.
5 # this is essential, because we print our statuslines without a newline
9 our @EXPORT = qw/status_init status status_completed/;
11 my $ansi_clear_line = "\033[2K";
12 my $ansi_save_cursor = "\0337";
13 my $ansi_restore_cursor = "\0338";
14 my %ansi_line_upwards;
19 # CONTINUOUS_INTEGRATION gets set when running under Travis, see
20 # http://docs.travis-ci.com/user/ci-environment/ and
21 # https://github.com/travis-ci/travis-ci/issues/1337
22 return (! -t STDOUT) || $ENV{CONTINUOUS_INTEGRATION} eq 'true';
25 # setup %ansi_line_upwards to map all working displays to the
26 # specific movement commands and initialize all status lines
29 my $displays = $args{displays};
30 $tests_total = $args{tests};
32 return if noninteractive();
34 for my $n (1 .. @$displays) {
35 # since we are moving upwards, get $display in reverse order
36 my $display = $displays->[-$n];
38 $ansi_line_upwards{$display} = "\033[$n\101";
40 # print an empty line for this status line
47 # generates the status text, prints it in the appropiate line
48 # and returns it, so it can be used in conjuction with C<Log()>
50 my ($display, $msg) = @_;
51 my $status = "[$display] $msg";
53 return $status if noninteractive();
57 $ansi_line_upwards{$display},
65 sub status_completed {
68 return if noninteractive();
73 "completed $num of $tests_total tests",