From 2e4cdae4fd866149185a5c16a7e0e37b9b87150c Mon Sep 17 00:00:00 2001
From: Damien George <damien.p.george@gmail.com>
Date: Tue, 17 May 2016 12:01:04 +0000
Subject: [PATCH] tests/thread: Add test for concurrent interning of strings.

Qstr code accesses global state and needs to be made thread safe.
---
 tests/thread/thread_qstr1.py | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 tests/thread/thread_qstr1.py

diff --git a/tests/thread/thread_qstr1.py b/tests/thread/thread_qstr1.py
new file mode 100644
index 0000000000..0c9c2bcf0f
--- /dev/null
+++ b/tests/thread/thread_qstr1.py
@@ -0,0 +1,34 @@
+# test concurrent interning of strings
+#
+# MIT license; Copyright (c) 2016 Damien P. George on behalf of Pycom Ltd
+
+import _thread
+
+# function to check the interned string
+def check(s, val):
+    assert type(s) == str
+    assert int(s) == val
+
+# main thread function
+def th(base, n):
+    for i in range(n):
+        # this will intern the string and check it
+        exec("check('%u', %u)" % (base + i, base + i))
+
+    with lock:
+        global n_finished
+        n_finished += 1
+
+lock = _thread.allocate_lock()
+n_thread = 4
+n_finished = 0
+
+# spawn threads
+for i in range(n_thread):
+    _thread.start_new_thread(th, (i * 1000, 1000))
+
+# busy wait for threads to finish
+while n_finished < n_thread:
+    pass
+
+print('pass')