#!perl
use 5.010;
use strict;
use warnings;
use Capture::Tiny qw(capture);
use Progress::Any;
use Progress::Any::Output;
use Test::More 0.98;
subtest default => sub {
Progress::Any::Output->set('TermProgressBarColor');
my $progress = Progress::Any->get_indicator(target=>10);
my ($out, $err, $exit) = capture {
$progress->update(message => "foo");
};
like($out, qr/foo/);
like($out, qr/10%/);
};
subtest "fh option" => sub {
Progress::Any::Output->set('TermProgressBarColor', fh=>\*STDERR);
my $progress = Progress::Any->get_indicator(target=>10);
my ($out, $err, $exit) = capture {
$progress->update(message => "foo");
};
like($err, qr/foo/);
like($err, qr/20%/);
};
subtest "default (wide)" => sub {
plan skip_all => 'Text::ANSI::NonWideUtil not available'
unless eval { require Text::ANSI::WideUtil; 1 };
Progress::Any::Output->set('TermProgressBarColor', wide=>1);
my $progress = Progress::Any->get_indicator(target=>10);
my ($out, $err, $exit) = capture {
$progress->update(message => "foo");
};
like($out, qr/foo/);
like($out, qr/30%/);
};
done_testing;