diff options
| author | Steve Bennett <steveb@workware.net.au> | 2013-11-10 11:07:20 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2016-02-02 12:48:14 +1000 |
| commit | 1ea06e8f2b15842aa68f2648b7ba70ab1038cf83 (patch) | |
| tree | de83536b167d10785ccce054e2ae656701551ab4 /tests | |
| parent | 7d0ac6440939ca38cf2f7be89c856f76b0fb9f9a (diff) | |
| download | jimtcl-1ea06e8f2b15842aa68f2648b7ba70ab1038cf83.zip jimtcl-1ea06e8f2b15842aa68f2648b7ba70ab1038cf83.tar.gz jimtcl-1ea06e8f2b15842aa68f2648b7ba70ab1038cf83.tar.bz2 | |
regexp: add support for \D, \W and \S
These are the negated versions of \d, \w and \s
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/regexp.test | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/regexp.test b/tests/regexp.test index a4e3f73..57b4dd0 100644 --- a/tests/regexp.test +++ b/tests/regexp.test @@ -519,6 +519,9 @@ test regexp-17.6 {regexp -inline no matches} { test regexp-17.7 {regexp -inline, no matchvars allowed} { list [catch {regexp -inline b abc match} msg] $msg } {1 {regexp match variables not allowed when using -inline}} +test regexp-17.8 {\W, \S and \D} regexp_are { + regexp -inline {(\W+)(\D+)(\S+)} " #!word abc 13123 " +} {{ #!word abc 13123} { #!} {word abc } 13123} test regexp-18.1 {regexp -all} { regexp -all b bbbbb |