- ok (evcheck(sub { $p->message(MESSAGE1) }, 'Count 1-10 ( 5)'),
- 'Count 1-10 ( 5)');
- ok (evcheck(sub { $p->update($_) for 6..10 }, 'Count 1-10 ( 6)'),
- 'Count 1-10 ( 6)');
+ lives_ok { $p->message(MESSAGE1) } 'Count 1-10 ( 5)';
+ lives_ok { $p->update($_) for 6..10 } 'Count 1-10 ( 6)';