Fixed a syntax error caused by a bad line in the Perl source.

This commit is contained in:
Guido van Rossum 1997-07-15 19:01:04 +00:00
parent 26d80e6714
commit 9ddd9dad80

View file

@ -465,6 +465,6 @@ tests = [
('a(?:b|c|d)(.)', 'ace', SUCCEED, 'g1', 'e'),
('a(?:b|c|d)*(.)', 'ace', SUCCEED, 'g1', 'e'),
('a(?:b|c|d)+?(.)', 'ace', SUCCEED, 'g1', 'e'),
('a(?:b|(c|e){1,2}?|d)+?(.)', 'ace', SUCCEED, 'g1g2', 'ce'),
('a(?:b|(c|e){1,2}?|d)+?(.)', 'ace', SUCCEED, 'g1+"-"+g2', 'c-e'),
('^(.+)?B', 'AB', SUCCEED, 'g1', 'A'),
]