diff options
author | Steve Bennett <steveb@workware.net.au> | 2023-08-12 16:50:03 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2023-08-12 16:50:33 +1000 |
commit | ff35f0ed44aac0a1ff1492ae41d6b4266db95211 (patch) | |
tree | 9dab6b64d2a1fb2cf05c911373a5c20a0342e59b /tests/socket.test | |
parent | e1a70f27b21994374dd1754b98d40afe6ee87ca1 (diff) | |
download | jimtcl-ff35f0ed44aac0a1ff1492ae41d6b4266db95211.zip jimtcl-ff35f0ed44aac0a1ff1492ae41d6b4266db95211.tar.gz jimtcl-ff35f0ed44aac0a1ff1492ae41d6b4266db95211.tar.bz2 |
tests: support hurd
socket operation on non-socket gives a different message
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/socket.test')
-rw-r--r-- | tests/socket.test | 6 |
1 files changed, 3 insertions, 3 deletions
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 } |