#!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%/);
};

done_testing;