From b3fbafcf92d1ac63c5088090b9ddab535c4189e1 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 13 Mar 2016 13:15:45 -0700
Subject: [PATCH] io.sockets.unix: adding tests for connection refused.

---
 basis/io/sockets/unix/unix-tests.factor | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 basis/io/sockets/unix/unix-tests.factor

diff --git a/basis/io/sockets/unix/unix-tests.factor b/basis/io/sockets/unix/unix-tests.factor
new file mode 100644
index 0000000000..e7176e6c09
--- /dev/null
+++ b/basis/io/sockets/unix/unix-tests.factor
@@ -0,0 +1,9 @@
+USING: accessors io.encodings.binary io.sockets kernel
+tools.test ;
+IN: io.sockets.unix
+
+[
+    T{ inet f "127.0.0.1" 5000 } binary [ ] with-client
+] [
+    message>> "Connection refused" =
+] must-fail-with