The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More tests => 2;

use Acme::ProgressBar;
ok(progress { 1; },       "do-nothing progress bar");

# my $time = time;
ok(progress { sleep 1; } , "sleep(1) progress bar");
# my $taken = time - $time;
# ok($taken >= 10, "took at least ten seconds to run");
# ok($taken <= 20, "didn't run over ridiculously");