From: Ulrich Drepper <drepper@redhat.com>
Date: Sun, 27 Apr 2003 06:15:09 +0000 (+0000)
Subject: Test for unloading of modules with TLS in static block.
X-Git-Tag: cvs/glibc-2_3_3~817
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=669863e27194ac7ddeffa2843d96949a1e082ece;p=thirdparty%2Fglibc.git

Test for unloading of modules with TLS in static block.
---

diff --git a/elf/tst-tls13.c b/elf/tst-tls13.c
new file mode 100644
index 00000000000..31b9cfbba31
--- /dev/null
+++ b/elf/tst-tls13.c
@@ -0,0 +1,29 @@
+/* Check unloading modules with data in static TLS block.  */
+#include <dlfcn.h>
+#include <stdio.h>
+#include <stdlib.h>
+
+
+static int
+do_test (void)
+{
+  int i;
+  for (i = 0; i < 1000;)
+    {
+      printf ("round %d\n",++i);
+
+      void *h = dlopen ("tst-tlsmod13a.so", RTLD_LAZY);
+      if (h == NULL)
+	{
+	  printf ("cannot load: %s\n", dlerror ());
+	  exit (1);
+	}
+
+      dlclose (h);
+    }
+
+  return 0;
+}
+
+#define TEST_FUNCTION do_test ()
+#include "../test-skeleton.c"