diff options
| -rw-r--r-- | Test/52zregexparse.ztst | 380 |
1 files changed, 0 insertions, 380 deletions
diff --git a/Test/52zregexparse.ztst b/Test/52zregexparse.ztst deleted file mode 100644 index ddca3c903..000000000 --- a/Test/52zregexparse.ztst +++ /dev/null @@ -1,380 +0,0 @@ -# Tests corresponding to the texinfo node `Conditional Expressions' - -%prep - - zmodload zsh/zutil - -%test - - zregexparse p1 p2 '' -0:empty - - zregexparse p1 p2 a /a/ -0:element - - zregexparse p1 p2 aaaaaa /a/ \# -0:closure - - zregexparse p1 p2 ab /a/ /b/ -0:concatenation - - zregexparse p1 p2 a /a/ \| /b/ -0:alternation 1 - - zregexparse p1 p2 b /a/ \| /b/ -0:alternation 2 - - zregexparse p1 p2 a \( /a/ \) -0:grouping - - zregexparse p1 p2 abbaaab \( /a/ \| /b/ \) \# -0:alternation, grouping and closure - - zregexparse p1 p2 abcdef /ab/ %cd% /cdef/ -0:lookahead 1 - - zregexparse p1 p2 abcdef /ab/ %ZZ% /cdef/ -1:lookahead 2 - - zregexparse p1 p2 abcd /ab/ %cd% '-print guard' ':print caction' /cd/ -0:pattern, lookahead, guard and completion action ->guard - - zregexparse p1 p2 abcd /ab/ %cd% '-print guard; false' ':print caction' /cd/ -1:guard failure ->guard ->caction - - zregexparse p1 p2 abcdef /ab/ '{print AB}' /cd/ '{print CD}' /ef/ '{print EF}' -0:action ->AB ->CD ->EF - - zregexparse p1 p2 aaa - print $? $p1 $p2 -0:aaa ->2 0 0 - - zregexparse p1 p2 aaa /a/ - print $? $p1 $p2 -0:aaa /a/ ->2 1 1 - - zregexparse p1 p2 aaa /a/ /a/ - print $? $p1 $p2 -0:aaa 2*/a/ ->2 2 2 - - zregexparse p1 p2 aaa /a/ /a/ /a/ - print $? $p1 $p2 -0:aaa 3*/a/ ->0 3 3 - - zregexparse p1 p2 aaa /a/ /a/ /a/ /a/ - print $? $p1 $p2 -0:aaa 4*/a/ ->1 3 3 - - zregexparse p1 p2 aaa /a/ /a/ /a/ /a/ /a/ - print $? $p1 $p2 -0:aaa 5*/a/ ->1 3 3 - - zregexparse p1 p2 aaa /aaa/ - print $? $p1 $p2 -0:aaa /aaa/ ->0 3 3 - - zregexparse p1 p2 aaa /aaa/ /a/ - print $? $p1 $p2 -0:aaa /aaa/ /a/ ->1 3 3 - - zregexparse p1 p2 aaa /a/ \# - print $? $p1 $p2 -0:aaa /aaa/ # ->0 3 3 - - zregexparse p1 p2 aaa /a/ \# \# - print $? $p1 $p2 -0:aaa /aaa/ # # ->0 3 3 - - zregexparse p1 p2 aaa \( /a/ \) - print $? $p1 $p2 -0:aaa ( /a/ ) ->2 1 1 - - zregexparse p1 p2 aaa \( /a/ \) \# - print $? $p1 $p2 -0:aaa ( /a/ ) # ->0 3 3 - - zregexparse p1 p2 aaa /a/ /b/ - print $? $p1 $p2 -0:aaa /a/ /b/ ->1 1 1 - - zregexparse p1 p2 a /a/ '{print A}' - print $? $p1 $p2 -0:a /a/ '{A}' ->A ->0 1 1 - - zregexparse p1 p2 a /b/ '{print A}' - print $? $p1 $p2 -0:a /b/ '{A}' ->1 0 0 - - zregexparse p1 p2 a /b/ ':print A' '{print B}' - print $? $p1 $p2 -0:a /b/ ':A' '{B}' ->A ->1 0 0 - - zregexparse p1 p2 ab /a/ '{print A}' - print $? $p1 $p2 -0:ab /a/ '{A}' ->2 1 1 - - zregexparse p1 p2 ab /a/ '{print A}' /b/ '{print B}' - print $? $p1 $p2 -0:ab /a/ '{A}' /b/ '{B}' ->A ->B ->0 2 2 - - zregexparse p1 p2 ab /a/ ':print A' '{print B}' /b/ ':print C' '{print D}' - print $? $p1 $p2 -0:ab /a/ ':A' '{B}' /b/ ':C' '{D}' ->B ->D ->0 2 2 - - zregexparse p1 p2 abc /a/ '{print A}' /b/ '{print B}' /c/ '{print C}' - print $? $p1 $p2 -0:abc /a/ '{A}' /b/ '{B}' /c/ '{C}' ->A ->B ->C ->0 3 3 - - zregexparse p1 p2 abz /a/ '{print A}' /b/ '{print B}' /c/ '{print C}' - print $? $p1 $p2 -0:abz /a/ '{A}' /b/ '{B}' /c/ '{C}' ->A ->1 2 2 - - zregexparse p1 p2 azz /a/ '{print A}' /b/ '{print B}' /c/ '{print C}' - print $? $p1 $p2 -0:azz /a/ '{A}' /b/ '{B}' /c/ '{C}' ->1 1 1 - - zregexparse p1 p2 aba '{print A}' /a/ '{print B}' /b/ '{print C}' /c/ '{print D}' - print $? $p1 $p2 -0:aba '{A}' /a/ '{B}' /b/ '{C}' /c/ '{D}' ->A ->B ->1 2 2 - - zregexparse p1 p2 a /a/ '{print "$match[1]"}' - print $? $p1 $p2 -0:a /a/ '{M1}' ->a ->0 1 1 - - zregexparse p1 p2 aaa /a/ '{print A}' // - print $? $p1 $p2 -0:aaa /a/ '{A}' // ->A ->2 1 1 - - zregexparse p1 p2 aaa /a/ '{print "$match[1]"}' // '{print A}' - print $? $p1 $p2 -0:aaa /a/ '{M1}' // '{A}' ->a ->2 1 1 - - zregexparse p1 p2 abcdef /a/ '{print $match[1]}' /b/ '{print $match[1]}' /c/ '{print $match[1]}' // '{print A}' - print $? $p1 $p2 -0:abcdef /a/ '{M1}' /b/ '{M1}' /c/ '{M1}' // '{A}' ->a ->b ->c ->2 3 3 - - zregexparse p1 p2 abcdef /a/ '{print A}' /b/ '{print B}' /c/ '{print C}' // '{print D}' - print $? $p1 $p2 -0:abcdef /a/ '{A}' /b/ '{B}' /c/ '{C}' // '{D}' ->A ->B ->C ->2 3 3 - - zregexparse p1 p2 a /a/ '{print A}' /b/ '{print B}' - print $? $p1 $p2 -0:a /a/ {A} /b/ {B} ->1 1 1 - - zregexparse p1 p2 abcdef \ - /a/ '-print Ga:$p1:$p2:$match[1]' '{print Aa:$p1:$p2:$match[1]}' \ - /b/ '-print Gb:$p1:$p2:$match[1]' '{print Ab:$p1:$p2:$match[1]}' \ - /c/ '-print Gc:$p1:$p2:$match[1]' '{print Ac:$p1:$p2:$match[1]}' \ - // - print $? $p1 $p2 -0:abcdef /a/ -Ga {Aa} /b/ -Gb {Aa} /c/ -Gc {Ac} // ->Ga:0:0:a ->Gb:1:1:b ->Aa:1:1:a ->Gc:2:2:c ->Ab:2:2:b ->Ac:3:3:c ->2 3 3 - - zregexparse p1 p2 abcdef \ - /a/ '-print Ga:$p1:$p2:$match[1]' '{print Aa:$p1:$p2:$match[1]}' \ - /b/ '-print Gb:$p1:$p2:$match[1]' '{print Ab:$p1:$p2:$match[1]}' \ - /c/ '-print Gc:$p1:$p2:$match[1]' '{print Ac:$p1:$p2:$match[1]}' \ - '/[]/' ':print F:$p1:$p2' - print $? $p1 $p2 -0:abcdef /a/ -Ga {Aa} /b/ -Gb {Ab} /c/ -Gc {Ac} /[]/ :F ->Ga:0:0:a ->Gb:1:1:b ->Aa:1:1:a ->Gc:2:2:c ->Ab:2:2:b ->F:3:3 ->1 3 3 - - zregexparse p1 p2 abcdef \ - /a/ '-print Ga:$p1:$p2:$match[1]' '{print Aa:$p1:$p2:$match[1]}' \ - /b/ '-print Gb:$p1:$p2:$match[1]' '{print Ab:$p1:$p2:$match[1]}' \ - /c/ '-print Gc:$p1:$p2:$match[1]' '{print Ac:$p1:$p2:$match[1]}' \ - \( '/[]/' ':print F1:$p1:$p2' \| /z/ ':print F2' \) - print $? $p1 $p2 -0:abcdef /a/ -Ga {Aa} /b/ -Gb {Ab} /c/ -Gc {Ac} ( /[]/ :F1 | /z/ :F2 ) ->Ga:0:0:a ->Gb:1:1:b ->Aa:1:1:a ->Gc:2:2:c ->Ab:2:2:b ->F1:3:3 ->F2 ->1 3 3 - - zregexparse p1 p2 a '/[]/' ':print A' - print $? $p1 $p2 -0:a /[]/ :A ->A ->1 0 0 - - zregexparse p1 p2 $'\0' $'/\0/' '{print A}' - print $? $p1 $p2 -0:"\0" /\0/ {A} ->A ->0 1 1 - - zregexparse p1 p2 $'\0' $'/\0/' '{print A}' '/ /' '{print B}' - print $? $p1 $p2 -0:"\0" /\0/ {A} / / {B} ->1 1 1 - - zregexparse p1 p2 abcdef \( '/?/' '{print $match[1]}' \) \# - print $? $p1 $p2 -0:abcdef ( /?/ {M1} ) # ->a ->b ->c ->d ->e ->f ->0 6 6 - - zregexparse p1 p2 abcdef \( '/c?|?/' '{print $match[1]}' \) \# - print $? $p1 $p2 -0:abcdef ( /c?|?/ {M1} ) # ->a ->b ->cd ->e ->f ->0 6 6 - - zregexparse p1 p2 abcacdef \( /a/ '{print $match[1]}' \| /b/ '{print $match[1]}' \| /c/ '{print $match[1]}' \) \# - print $? $p1 $p2 -0:abcacdef ( /a/ {M1} | /b/ {M1} | /c/ {M1} ) # ->a ->b ->c ->a ->1 5 5 - - zregexparse p1 p2 abcdef \( /a/ ':print A' \| /b/ ':print B' \| /c/ ':print C' \) \# - print $? $p1 $p2 -0:abcdef ( /a/ :A | /b/ :B | /c/ :C ) # ->A ->B ->C ->1 3 3 - - zregexparse p1 p2 abcdef \( /a/ ':print A' '{print $match[1]}' \| /b/ ':print B' '{print $match[1]}' \| /c/ ':print C' '{print $match[1]}' \) \# - print $? $p1 $p2 -0:abcdef ( /a/ :A {M1} | /b/ :B {M1} | /c/ :C {M1} ) # ->a ->b ->A ->B ->C ->1 3 3 - - zregexparse p1 p2 $'com\0xx' /$'[^\0]#\0'/ \( /$'[^\0]#\0'/ :'print A' /$'[^\0]#\0'/ :'print B' \) \# - print $? $p1 $p2 -0:"com\0xx" /W/ ( /W/ :A /W/ :B ) # ->A ->1 4 4 - - zregexparse p1 p2 $'com\0xx\0yy' /$'[^\0]#\0'/ \( /$'[^\0]#\0'/ :'print A' /$'[^\0]#\0'/ :'print B' \) \# - print $? $p1 $p2 -0:"com\0xx\0yy" /W/ ( /W/ :A /W/ :B ) # ->B ->1 7 7 - - zregexparse p1 p2 $'com\0xx\0yy\0zz' /$'[^\0]#\0'/ \( /$'[^\0]#\0'/ :'print A' /$'[^\0]#\0'/ :'print B' \) \# - print $? $p1 $p2 -0:"com\0xx\0yy\0zz" /W/ ( /W/ :A /W/ :B ) # ->A ->1 10 10 - - zregexparse p1 p2 abcdez /abc/ ':print A:$p1:$p2' /def/ ':print B:$p1:$p2' - print $? $p1 $p2 -0:abcdez /abc/ :A /def/ :B ->B:3:3 ->1 3 3 - - zregexparse p1 p2 abcdez /abc/+ ':print A:$p1:$p2' /def/ ':print B:$p1:$p2' - print $? $p1 $p2 -0:abcdez /abc/+ :A /def/ :B ->A:0:3 ->B:0:3 ->1 0 3 - - zregexparse p1 p2 abcdez /abc/+ ':print A:$p1:$p2' // /def/ ':print B:$p1:$p2' - print $? $p1 $p2 -0:abcdez /abc/+ :A // /def/ :B ->A:0:3 ->B:0:3 ->1 0 3 - - zregexparse p1 p2 abcdez /abc/+ ':print A:$p1:$p2' //- /def/ ':print B:$p1:$p2' - print $? $p1 $p2 -0:abcdez /abc/+ :A //- /def/ :B ->B:3:3 ->1 3 3 - - zregexparse p1 p2 $'ZZZZ\0abcdef' $'/ZZZZ\0/' /abc/+ ':print A:$p1:$p2' /dee/ ':print B:$p1:$p2' - print $? $p1 $p2 -0:"ZZZZ\0abcdef" /ZZZZ\0/ /abc/+ :A /dee/ :B ->A:5:8 ->B:5:8 ->1 5 8 |