diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-10-22 14:08:10 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-10-22 14:36:38 -0600 |
| commit | 8fd2c59a00e94e69391fbba9f996aba3ed9f1eb7 (patch) | |
| tree | c586a0e2d25cbe7ed4db14a3ff0c1993a73f0b79 /t | |
| parent | fe82fa26aa2ef27bbe5488ec399abb274433907e (diff) | |
| download | perl-8fd2c59a00e94e69391fbba9f996aba3ed9f1eb7.tar.gz | |
regexp_unicode_prop.t: Add tests.
These tests make sure that a user-defined property may be included as
part of another user-defined property.
Diffstat (limited to 't')
| -rw-r--r-- | t/re/regexp_unicode_prop.t | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/t/re/regexp_unicode_prop.t b/t/re/regexp_unicode_prop.t index a36afdfc50..3e08afcc4c 100644 --- a/t/re/regexp_unicode_prop.t +++ b/t/re/regexp_unicode_prop.t @@ -91,6 +91,8 @@ my @USER_DEFINED_PROPERTIES = ( InNotKana => ['\x{3040}', '!\x{3041}'], InConsonant => ['d', '!e'], IsSyriac1 => ['\x{0712}', '!\x{072F}'], + IsSyriac1KanaMark => ['\x{309A}', '!\x{3090}'], + IsSyriac1KanaMark => ['\x{0730}', '!\x{0712}'], '# User-defined character properties may lack \n at the end', InGreekSmall => ['\N{GREEK SMALL LETTER PI}', '\N{GREEK SMALL LETTER FINAL SIGMA}'], @@ -344,6 +346,13 @@ sub IsMyUpper { } } +# Verify that can use user-defined properties inside another one +sub IsSyriac1KanaMark {<<'--'} ++main::IsSyriac1 ++main::InKana3 +&utf8::IsMark +-- + # fake user-defined properties; these subs shouldn't be called, because # their names don't start with In or Is |