diff options
| author | Steve Bennett <steveb@workware.net.au> | 2010-01-24 11:02:39 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:40 +1000 |
| commit | e448f2f3a3cd6b95b22de3cc87a2d22144da0ed1 (patch) | |
| tree | 7c7b0a81422e9e1eff4aabe501219332045e8643 /tests | |
| parent | d3ccac54f2880de57002009daa7cceda069454fd (diff) | |
| download | jimtcl-e448f2f3a3cd6b95b22de3cc87a2d22144da0ed1.zip jimtcl-e448f2f3a3cd6b95b22de3cc87a2d22144da0ed1.tar.gz jimtcl-e448f2f3a3cd6b95b22de3cc87a2d22144da0ed1.tar.bz2 | |
Implement unix domain sockets for socket
*: aio.socket now supports unix and unix.server
*: Also, rename aio.open as open and aio.socket as socket
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/regexp.test | 8 | ||||
| -rw-r--r-- | tests/testing.tcl | 2 |
2 files changed, 9 insertions, 1 deletions
diff --git a/tests/regexp.test b/tests/regexp.test index 86ba17a..7832474 100644 --- a/tests/regexp.test +++ b/tests/regexp.test @@ -33,3 +33,11 @@ test regexp-1.1 {effect of caching} { # If these two times are within 20% of each other, caching isn't working expr {$t2 / $t1 < 1.2 && $t1 / $t2 < 1.2} } {0} + +test regexp-1.2 {Non-ascii} { + set nbsp [format %c 0xa0] + set string [format "abc%cdef" 0xa0] + + #list [regexp {(.*)$nbsp-$nbsp(.*)} $string dummy f1 f2] $f1 $f2 + list [regexp "(.*)[set nbsp](.*)" $string dummy f1 f2] $f1 $f2 +} {} diff --git a/tests/testing.tcl b/tests/testing.tcl index 18bc8db..9f5ffa3 100644 --- a/tests/testing.tcl +++ b/tests/testing.tcl @@ -4,7 +4,7 @@ # e.g. bio copy [autoopen infile] [autoopen outfile w]; collect # proc autoopen {filename {mode r}} { - set ref [ref [aio.open $filename $mode] aio lambdaFinalizer] + set ref [ref [open $filename $mode] aio lambdaFinalizer] rename [getref $ref] $ref return $ref } |