- ok $lines[0], MESSAGE1;
- ok $lines[-1], qr/\[=+\]/, 'Count 1-10 (5)';
- ok $lines[-1], qr/^\s*100%/, 'Count 1-10 (6)';
-}
+ is $lines[0], MESSAGE1;
+ like $lines[-1], qr/\[=+\]/, 'Count 1-10 (5)';
+ like $lines[-1], qr/^\s*100%/, 'Count 1-10 (6)';