ok (evcheck(sub { $p = Term::ProgressBar->new(10); }, 'Count 1-20 (1)' ),
1, 'Count 1-20 (1)');
ok (evcheck(sub { $p->update($_) for 1..5 }, 'Count 1-20 (2)' ),
ok (evcheck(sub { $p = Term::ProgressBar->new(10); }, 'Count 1-20 (1)' ),
1, 'Count 1-20 (1)');
ok (evcheck(sub { $p->update($_) for 1..5 }, 'Count 1-20 (2)' ),