Regression test doesn't rely on value of O_NONBLOCK.

[adns.git] / regress / fcntl-change.pl

diff --git a/regress/fcntl-change.pl b/regress/fcntl-change.pl
new file mode 100644 (file)
index 0000000..d346281
--- /dev/null
+++ b/regress/fcntl-change.pl
@@ -0,0 +1,8 @@
+s/^( fcntl fd=\d+ cmd=F_SETFL) 2050$/$1 O_NONBLOCK\|\.\.\./;
+if ($last =~ m/^ fcntl fd=\d+ cmd=F_GETFL$/) {
+    s/^ fcntl=2$/ fcntl\=\~O_NONBLOCK\&.../;
+}
+if ($last =~ m/^ fcntl fd=\d+ cmd=F_SETFL /) {
+    s/^ fcntl=0$/ fcntl\=OK/;
+}
+$last=$_;