ok (evcheck(sub { $p = Term::ProgressBar->new(10); }, 'Count 1-10 (1)' ),
1, 'Count 1-10 (1)');
ok (evcheck(sub { $p->update($_) for 1..10 }, 'Count 1-10 (2)' ),
1, 'Count 1-10 (2)');
ok (evcheck(sub { $p = Term::ProgressBar->new(10); }, 'Count 1-10 (1)' ),
1, 'Count 1-10 (1)');
ok (evcheck(sub { $p->update($_) for 1..10 }, 'Count 1-10 (2)' ),
1, 'Count 1-10 (2)');
ok $lines[$_], qr/\[[= ]+\]/, sprintf('Count 1-10 (%d)', 5+$_)
for 0..10;
}
ok $lines[$_], qr/\[[= ]+\]/, sprintf('Count 1-10 (%d)', 5+$_)
for 0..10;
}
ok (evcheck(sub { $p = Term::ProgressBar->new(10); }, 'Count 1-9 (1)' ),
1, 'Count 1-9 (1)');
ok (evcheck(sub { $p->update($_) for 1..9 }, 'Count 1-9 (2)' ),
1, 'Count 1-9 (2)');
ok (evcheck(sub { $p = Term::ProgressBar->new(10); }, 'Count 1-9 (1)' ),
1, 'Count 1-9 (1)');
ok (evcheck(sub { $p->update($_) for 1..9 }, 'Count 1-9 (2)' ),
1, 'Count 1-9 (2)');
ok $lines[$_], qr/\[[= ]+\]/, sprintf('Count 1-9 (%d)', 5+$_)
for 0..9;
}
ok $lines[$_], qr/\[[= ]+\]/, sprintf('Count 1-9 (%d)', 5+$_)
for 0..9;
}
my $b = Term::ProgressBar->new(1000000);
$b->update($_) foreach (0, 1);
my $b = Term::ProgressBar->new(1000000);
$b->update($_) foreach (0, 1);