aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2023-08-12 16:50:03 +1000
committerSteve Bennett <steveb@workware.net.au>2023-08-12 16:50:33 +1000
commitff35f0ed44aac0a1ff1492ae41d6b4266db95211 (patch)
tree9dab6b64d2a1fb2cf05c911373a5c20a0342e59b
parente1a70f27b21994374dd1754b98d40afe6ee87ca1 (diff)
downloadjimtcl-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>
-rw-r--r--tests/aio.test2
-rw-r--r--tests/socket.test6
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
}