Sys::Syslog patch to allow unix domain sockets

[p5sagit/p5-mst-13.2.git] / t / op / re_tests

diff --git a/t/op/re_tests b/t/op/re_tests
index f8c4c6e..77d97e2 100644 (file)
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -53,6 +53,42 @@ a[^-b]c      adc     y       $&      adc
 a[^-b]c        a-c     n       -       -
 a[^]b]c        a]c     n       -       -
 a[^]b]c        adc     y       $&      adc
+\ba\b  a-      y       -       -
+\ba\b  -a      y       -       -
+\ba\b  -a-     y       -       -
+\by\b  xy      n       -       -
+\by\b  yz      n       -       -
+\by\b  xyz     n       -       -
+\Ba\B  a-      n       -       -
+\Ba\B  -a      n       -       -
+\Ba\B  -a-     n       -       -
+\By\b  xy      y       -       -
+\by\B  yz      y       -       -
+\By\B  xyz     y       -       -
+\w     a       y       -       -
+\w     -       n       -       -
+\W     a       n       -       -
+\W     -       y       -       -
+a\sb   a b     y       -       -
+a\sb   a-b     n       -       -
+a\Sb   a b     n       -       -
+a\Sb   a-b     y       -       -
+\d     1       y       -       -
+\d     -       n       -       -
+\D     1       n       -       -
+\D     -       y       -       -
+[\w]   a       y       -       -
+[\w]   -       n       -       -
+[\W]   a       n       -       -
+[\W]   -       y       -       -
+a[\s]b a b     y       -       -
+a[\s]b a-b     n       -       -
+a[\S]b a b     n       -       -
+a[\S]b a-b     y       -       -
+[\d]   1       y       -       -
+[\d]   -       n       -       -
+[\D]   1       n       -       -
+[\D]   -       y       -       -
 ab|cd  abc     y       $&      ab
 ab|cd  abcd    y       $&      ab
 ()ef   def     y       $&-$1   ef-
@@ -265,3 +301,6 @@ a(?:b|c|d)*(.)      ace     y       $1      e
 a(?:b|c|d)+?(.)        ace     y       $1      e
 a(?:b|(c|e){1,2}?|d)+?(.)      ace     y       $1$2    ce
 ^(.+)?B        AB      y       $1      A
+'([a-z]+)\s\1'i        Aa aa   y       $&-$1   Aa aa-Aa
+'([a-z]+)\s\1'i        Ab ab   y       $&-$1   Ab ab-Ab
+foo\w*\d{4}baz foobar1234baz   y       $&      foobar1234baz