diff options
| author | Steve Bennett <steveb@workware.net.au> | 2020-04-18 09:34:25 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2020-05-04 21:57:34 +1000 |
| commit | da82368c816c8d06f425aa3f25a2a918fdba1df1 (patch) | |
| tree | e1dc05358910d168edc982ed05523d0b30ad24d5 /tests/regcount.test | |
| parent | 8a5861eb51c32e41d638181188c256c1dbb93c96 (diff) | |
| download | jimtcl-da82368c816c8d06f425aa3f25a2a918fdba1df1.zip jimtcl-da82368c816c8d06f425aa3f25a2a918fdba1df1.tar.gz jimtcl-da82368c816c8d06f425aa3f25a2a918fdba1df1.tar.bz2 | |
tests: Add many new additional tests for code coverage
readdir, tty, utf8, signal, alarm, kill, file, jimsh, posix, aio,
history, interp, pack, unpack, eventloop, exec, load, package,
regexp, regsub
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/regcount.test')
| -rw-r--r-- | tests/regcount.test | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/tests/regcount.test b/tests/regcount.test index 5c1469e..dd8119f 100644 --- a/tests/regcount.test +++ b/tests/regcount.test @@ -44,8 +44,9 @@ foreach {pat str exp} { a{1,2}? baaaad a a{3,4}? baaaad aaa a{5,6}? baaaad {} + (a|b){3,4}?def baaaad {} {\d{1,3}} 239 239 - (aa|bb)?c xabbaac {aac aa} + (aa|bb)?cdef xcdabbaacdef {aacdef aa} (a|y)+ bac {a a} (a|y){1,} bac {a a} (a|y)* bac {{} {}} @@ -84,6 +85,13 @@ foreach {pat str exp} { (a|y){5,6}? baaaad {} {[[:alpha:]]+} _bcd56_ef bcd {[[:alnum:]]+} _bcd56_ef bcd56 + {[[:blank:]]+} "_b \t\n6cAF" "{ \t}" + {[[:upper:]]+} "_b \t\n6cAF" {AF} + {[[:lower:]]+} "_b \t\n6cAF" {b} + {[[:cntrl:]]+} _bcd\x04z56_ef "\x04" + {[[:print:]]+} "\v _b \t\n6cAF" {{ _b }} + {[[:graph:]]+} " _,b \t\n6cAF" {_,b} + {[[:punct:]]+} bcd56_,ef _, {[\w]+} :_bcd56_ef _bcd56_ef {[[:space:]]+} "_bc \t\r\n\f\v_" "{ \t\r\n\f\v}" {[\x41-\x43]+} "_ABCD_" ABC @@ -96,6 +104,8 @@ foreach {pat str exp} { ####((a*)*b)*b aaaaaaaaaaaaaaaaaaaaaaaaab {b {} {}} ####(a*)* aab {aa {}} {^([^:=]*)(:)?(=)?$} version {version version {} {}} + {\Aab.} abc,abd abc + {de.\Z} def,deh,dei dei } { if {[string match #* $pat]} { continue |