modifying it means I need to retest it on *all* the inputs.
This should be trivial to do. One file full of input strings and one full of their expected results.
while (my $input = <$testInputsFH>) { my $result = doBigRegexOn($input); my $expected = <$expectedResultFH>; warn "Test failed; got $result instead of $expected on line $.\n" un +less $result eq $expected; }
In reply to Re: Stop runaway regex
by Anonymous Monk
in thread Stop runaway regex
by yiannis2014
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |