From 819c4cae43f6f14d3cd0119d55e99ce678b6b35c7d216ed277e3022efa507173 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Matthias=20Mail=C3=A4nder?= <matthias@mailaender.name>
Date: Thu, 10 Nov 2016 06:20:54 +0000
Subject: [PATCH] Accepting request 439339 from home:Andreas_Schwab:Factory

- repl-server-test.patch: fix race in 00-repl-server.test

OBS-URL: https://build.opensuse.org/request/show/439339
OBS-URL: https://build.opensuse.org/package/show/devel:languages:misc/guile?expand=0&rev=84
---
 guile.changes          |  5 +++++
 guile.spec             |  2 ++
 repl-server-test.patch | 38 ++++++++++++++++++++++++++++++++++++++
 3 files changed, 45 insertions(+)
 create mode 100644 repl-server-test.patch

diff --git a/guile.changes b/guile.changes
index f1835d7..3a5e7e7 100644
--- a/guile.changes
+++ b/guile.changes
@@ -1,3 +1,8 @@
+-------------------------------------------------------------------
+Tue Nov  8 11:14:02 UTC 2016 - schwab@suse.de
+
+- repl-server-test.patch: fix race in 00-repl-server.test
+
 -------------------------------------------------------------------
 Sat Oct 15 14:55:17 UTC 2016 - mpluskal@suse.com
 
diff --git a/guile.spec b/guile.spec
index 61f55f6..8ed0d43 100644
--- a/guile.spec
+++ b/guile.spec
@@ -41,6 +41,7 @@ Patch1:         %{name}-64bit.patch
 Patch2:         %{name}-1.6.10-mktemp.patch
 Patch3:         %{name}-threads-test.patch
 Patch4:         %{name}-net-db-test.patch
+Patch5:         repl-server-test.patch
 BuildRequires:  gc-devel
 BuildRequires:  gmp-devel
 BuildRequires:  libffi-devel
@@ -122,6 +123,7 @@ linked in as a library when building extensible programs.
 %patch2
 %patch3 -p1
 %patch4 -p1
+%patch5 -p1
 # force rebuild with non-broken makeinfo
 #rm -f doc/*/*.info
 
diff --git a/repl-server-test.patch b/repl-server-test.patch
new file mode 100644
index 0000000..577f085
--- /dev/null
+++ b/repl-server-test.patch
@@ -0,0 +1,38 @@
+From 2fbde7f02adb8c6585e9baf6e293ee49cd23d4c4 Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
+Date: Fri, 4 Nov 2016 22:45:51 +0100
+Subject: [PATCH] tests: Avoid race condition in REPL server test.
+
+Fixes <http://bugs.gnu.org/24769>.
+Reported by Rob Browning <rlb@defaultvalue.org>.
+
+* test-suite/tests/00-repl-server.test ("simple expression"): Add call
+to 'select' before 'display'.
+---
+ test-suite/tests/00-repl-server.test | 10 ++++++++--
+ 1 file changed, 8 insertions(+), 2 deletions(-)
+
+diff --git a/test-suite/tests/00-repl-server.test b/test-suite/tests/00-repl-server.test
+index 1f570a9601..4b5ec0cb38 100644
+--- a/test-suite/tests/00-repl-server.test
++++ b/test-suite/tests/00-repl-server.test
+@@ -105,8 +105,14 @@ reached."
+       "scheme@(repl-server)> $1 = 42\n"
+     (with-repl-server socket
+       (read-until-prompt socket %last-line-before-prompt)
+-      (display "(+ 40 2)\n(quit)\n" socket)
+-      (read-string socket)))
++
++      ;; Wait until 'repl-reader' in boot-9 has written the prompt.
++      ;; Otherwise, if we write too quickly, 'repl-reader' checks for
++      ;; 'char-ready?' and doesn't print the prompt.
++      (match (select (list socket) '() (list socket) 3)
++        (((_) () ())
++         (display "(+ 40 2)\n(quit)\n" socket)
++         (read-string socket)))))
+ 
+   (pass-if "HTTP inter-protocol attack"           ;CVE-2016-8606
+     (with-repl-server socket
+-- 
+2.10.2
+