diff options
author | John Millaway <john43@users.sourceforge.net> | 2006-03-27 22:48:37 +0000 |
---|---|---|
committer | John Millaway <john43@users.sourceforge.net> | 2006-03-27 22:48:37 +0000 |
commit | f1f579a3b404e67c0c4410676330294bb6c22e7e (patch) | |
tree | 80ebc83c2bc351841749b4d3cf55951b53074106 /tests | |
parent | 9863e4026315429cf0f2bbe4e8e389b8aaa2c9b3 (diff) |
Implemented (?x:) syntax to allow whitespace in patterns.
Added test for (?x:) syntax in test suite.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/test-ccl/scanner.l | 7 | ||||
-rw-r--r-- | tests/test-ccl/test.input | 2 |
2 files changed, 9 insertions, 0 deletions
diff --git a/tests/test-ccl/scanner.l b/tests/test-ccl/scanner.l index 204ac39..914795c 100644 --- a/tests/test-ccl/scanner.l +++ b/tests/test-ccl/scanner.l @@ -67,6 +67,13 @@ ^"dot-all-1:"(?-s:XXX.*)@dot-all-1@\n err_abort(); ^"dot-all-1:"(?s:XXX.*)@dot-all-1@\n a_ok(); +^"x1:"(?x: a | b )+@x1@\n a_ok(); +^"x2:"(?x: a | + (?# Comment ) + b + )+@x2@\n a_ok(); + + .|\n { err_abort(); } %% diff --git a/tests/test-ccl/test.input b/tests/test-ccl/test.input index e8b82a8..f38b4d6 100644 --- a/tests/test-ccl/test.input +++ b/tests/test-ccl/test.input @@ -21,3 +21,5 @@ dot-all-1:XXX junk junk junk @dot-all-1@ +x1:abaabb@x1@ +x2:abaabb@x2@ |