From e448f2f3a3cd6b95b22de3cc87a2d22144da0ed1 Mon Sep 17 00:00:00 2001
From: Steve Bennett <steveb@workware.net.au>
Date: Sun, 24 Jan 2010 11:02:39 +1000
Subject: 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
---
 tests/regexp.test | 8 ++++++++
 tests/testing.tcl | 2 +-
 2 files changed, 9 insertions(+), 1 deletion(-)

(limited to 'tests')

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
 }
-- 
cgit v1.1