{
String line =
"Subroutine foo redefined at /blah/X.pm line 65." +
" at /foo/Bar.pm line 22.";
PerlValidatorBase.ParsedErrorLine pline =
new PerlValidatorBase.ParsedErrorLine(line, new Log());
assertEquals(
"Subroutine foo redefined at /blah/X.pm line 65.",
pline.getMessage());
assertEquals(22, pline.getLineNumber());
// test case for bug #1307071
line = "syntax error at bug1307071.pl line 9, near \"if {\"";
pline = new PerlValidatorBase.ParsedErrorLine(line, new Log());
assertEquals("syntax error", pline.getMessage()); // could be better...
assertEquals(9, pline.getLineNumber());
}