- ok $lines[-1], qr/\[=+\]/, 'Count 1-10 (3)';
- ok $lines[-1], qr/^\s*100%/, 'Count 1-10 (4)';
- ok $lines[$_], qr/\[[= ]+\]/, sprintf('Count 1-10 (%d)', 5+$_)
+ like $lines[-1], qr/\[=+\]/, 'Count 1-10 (3)';
+ like $lines[-1], qr/^\s*100%/, 'Count 1-10 (4)';
+ like $lines[$_], qr/\[[= ]+\]/, sprintf('Count 1-10 (%d)', 5+$_)