1 files changed, 35 insertions, 0 deletions
diff --git a/tests/thread/thread_qstr1.py b/tests/thread/thread_qstr1.py
new file mode 100644
index 0000000000..c0256316e5
--- /dev/null
+++ b/tests/thread/thread_qstr1.py
@@ -0,0 +1,35 @@
+# 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
+n_qstr_per_thread = 100 # make 1000 for a more stressful test (uses more heap)
+
+# spawn threads
+for i in range(n_thread):
+    _thread.start_new_thread(th, (i * n_qstr_per_thread, n_qstr_per_thread))
+
+# busy wait for threads to finish
+while n_finished < n_thread:
+    pass
+
+print('pass')