diff options
| -rw-r--r-- | tests/aio.test | 2 | ||||
| -rw-r--r-- | tests/socket.test | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/tests/aio.test b/tests/aio.test index 4591279..3d22964 100644 --- a/tests/aio.test +++ b/tests/aio.test @@ -124,7 +124,7 @@ test aio-7.1 {close args} -constraints socket -body { test aio-7.2 {close w on non-socket} -constraints socket -body { $f close w -} -returnCodes error -match regexp -result {^(Socket operation on non-socket|Not a socket)$} +} -returnCodes error -match regexp -result {(bad|socket)} test aio-7.3 {close -nodelete on non-socket} -constraints socket -body { $f close -nodelete diff --git a/tests/socket.test b/tests/socket.test index c0361a7..d40d1d3 100644 --- a/tests/socket.test +++ b/tests/socket.test @@ -295,7 +295,7 @@ test socket-3.3 {listen usage} -body { test socket-3.4 {listen not a socket} -body { set f [open [info script]] $f listen 10 -} -returnCodes error -match regexp -result {^(Socket operation on non-socket|Not a socket)$} -cleanup { +} -returnCodes error -match regexp -result {(bad|socket)} -cleanup { $f close } @@ -310,14 +310,14 @@ test socket-4.2 {invalid ipv4 address} -body { test socket-4.3 {sockname on non-socket} -body { set f [open [info script]] $f sockname -} -returnCodes error -match regexp -result {^(Socket operation on non-socket|Not a socket)$} -cleanup { +} -returnCodes error -match regexp -result {(bad|socket)} -cleanup { $f close } test socket-4.4 {peername on non-socket} -body { set f [open [info script]] $f peername -} -returnCodes error -match regexp -result {^(Socket operation on non-socket|Not a socket)$} -cleanup { +} -returnCodes error -match regexp -result {(bad|socket)} -cleanup { $f close } |