X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=util%2Ftstflock.c;h=28d9548335588295946726b962037e9140333932;hb=3125b09b2621c1f0cfa795085f11c2c284fc74d5;hp=b6289683e4e1aed1a040f279b1cb6c0f99f7236f;hpb=2c3c2214cd279df3cbfd230448a35e91e6caa390;p=idzebra-moved-to-github.git

diff --git a/util/tstflock.c b/util/tstflock.c
index b628968..28d9548 100644
--- a/util/tstflock.c
+++ b/util/tstflock.c
@@ -1,11 +1,30 @@
 /*
- * Copyright (C) 1995-2005, Index Data ApS
+ * Copyright (C) 1995-2006, Index Data ApS
  * See the file LICENSE for details.
  *
- * $Id: tstflock.c,v 1.3 2006-03-23 17:32:03 adam Exp $
+ * $Id: tstflock.c,v 1.12 2006-06-30 15:10:29 adam Exp $
  */
 
+#include <assert.h>
+#include <stdlib.h>
 #include <yaz/test.h>
+#include <yaz/log.h>
+
+#if HAVE_SYS_STAT_H
+#include <sys/stat.h>
+#endif
+#if HAVE_SYS_TYPES_H
+#include <sys/types.h>
+#endif
+#if HAVE_UNISTD_H
+#include <unistd.h>
+#endif
+#if HAVE_SYS_WAIT_H
+#include <sys/wait.h>
+#endif
+
+#include <fcntl.h>
+
 #if YAZ_POSIX_THREADS
 #include <pthread.h>
 #endif
@@ -15,15 +34,14 @@
 #endif
 
 #include <idzebra/flock.h>
-#if HAVE_UNISTD_H
-#include <unistd.h>
-#endif
 #include <string.h>
 
-static char seq[20];
-static char *seqp = seq;
+static char seq[1000];
+static char *seqp = 0;
 
-#define NUM_THREADS 2
+#define NUM_THREADS 100
+
+int test_fd = 0;
 
 static void small_sleep()
 {
@@ -33,21 +51,47 @@ static void small_sleep()
     sleep(1);
 #endif
 }
+
 void *run_func(void *arg)
 {
     int i;
+    int *pdata = (int*) arg;
+    int use_write_lock = *pdata;
     ZebraLockHandle lh = zebra_lock_create(0, "my.LCK");
     for (i = 0; i<2; i++)
     {
-        zebra_lock_w(lh);
-     
-        *seqp++ = 'L';
-        small_sleep();
-        *seqp++ = 'U';
-        
-        zebra_unlock(lh);
+        int write_lock = use_write_lock;
+
+        if (use_write_lock == 2) /* random lock */
+            write_lock = (rand() & 3) == 3 ? 1 : 0;
+            
+        if (write_lock)
+        {
+            zebra_lock_w(lh);
+
+            write(test_fd, "L", 1);
+            *seqp++ = 'L';
+            small_sleep();
+            *seqp++ = 'U';  
+            write(test_fd, "U", 1);
+          
+            zebra_unlock(lh);
+        }
+        else
+        {
+            zebra_lock_r(lh);
+            
+            write(test_fd, "l", 1);
+            *seqp++ = 'l';
+            small_sleep();
+            *seqp++ = 'u';
+            write(test_fd, "u", 1);
+            
+            zebra_unlock(lh);
+        }
     }
     zebra_lock_destroy(lh);
+    *pdata = 123;
     return 0;
 }
 
@@ -57,63 +101,127 @@ DWORD WINAPI ThreadProc(void *p)
     run_func(p);
     return 0;
 }
+#endif
 
-static void tst_win32()
+static void tst_thread(int num, int write_flag)
 {
+#ifdef WIN32
     HANDLE handles[NUM_THREADS];
     DWORD dwThreadId[NUM_THREADS];
-    int i, id[NUM_THREADS];
-    
-    for (i = 0; i<NUM_THREADS; i++)
-    {
-        void *pData = &id[i];
-        handles[i] = CreateThread(
-            NULL,              /* default security attributes */
-            0,                 /* use default stack size */
-            ThreadProc,        /* thread function */
-            pData,             /* argument to thread function */
-            0,                 /* use default creation flags */
-            &dwThreadId[i]);   /* returns the thread identifier */
-    }
-    WaitForMultipleObjects(NUM_THREADS, handles, TRUE, INFINITE);
-    /* join */
-    *seqp++ = '\0';
-}
 #endif
-
 #if YAZ_POSIX_THREADS
-static void tst_pthread()
-{
     pthread_t child_thread[NUM_THREADS];
+#endif
     int i, id[NUM_THREADS];
-    for (i = 0; i<NUM_THREADS; i++)
+
+    seqp = seq;
+    assert (num <= NUM_THREADS);
+    for (i = 0; i < num; i++)
+    {
+        id[i] = write_flag;
+#if YAZ_POSIX_THREADS
         pthread_create(&child_thread[i], 0 /* attr */, run_func, &id[i]);
+#endif
+#ifdef WIN32
+        if (1)
+        {
+            void *pData = &id[i];
+            handles[i] = CreateThread(
+                NULL,              /* default security attributes */
+                0,                 /* use default stack size */
+                ThreadProc,        /* thread function */
+                pData,             /* argument to thread function */
+                0,                 /* use default creation flags */
+                &dwThreadId[i]);   /* returns the thread identifier */
+        }
 
-    for (i = 0; i<NUM_THREADS; i++)
+#endif
+    }
+#if YAZ_POSIX_THREADS
+    for (i = 0; i<num; i++)
         pthread_join(child_thread[i], 0);
+#endif
+#ifdef WIN32
+    WaitForMultipleObjects(num, handles, TRUE, INFINITE);
+#endif
+    for (i = 0; i < num; i++)
+        YAZ_CHECK(id[i] == 123);
     *seqp++ = '\0';
+    yaz_log(YLOG_LOG, "tst_thread(%d,%d) returns seq=%s", 
+            num, write_flag, seq);
 }
-#endif
 
-int main(int argc, char **argv)
+static void tst()
 {
-    YAZ_CHECK_INIT(argc, argv);
+    tst_thread(4, 1); /* write locks */
+    if (1)
+    {
+        int i = 0;
+        while (seq[i])
+        {
+            YAZ_CHECK_EQ(seq[i], 'L');
+            YAZ_CHECK_EQ(seq[i+1], 'U');
+            i = i + 2;
+        }
+    }
 
-#ifdef WIN32
-    tst_win32();
+#if 0
+    tst_thread(6, 0);  /* read locks */
 #endif
-#if YAZ_POSIX_THREADS
-    tst_pthread();
+#if 1
+    tst_thread(20, 2); /* random locks */
 #endif
+}
 
-    *seqp++ = '\0';
-    printf("seq=%s\n", seq);
-#if 0
-    /* does not pass.. for bug 529 */
-    YAZ_CHECK(strcmp(seq, "LULULULU") == 0);
+void fork_tst()
+{
+#if HAVE_SYS_WAIT_H
+    pid_t pid[2];
+    int i;
+
+    for (i = 0; i<2; i++)
+    {
+        pid[i] = fork();
+        if (!pid[i])
+        {
+            tst();
+            exit(0);
+        }
+    }
+    for (i = 0; i<2; i++)
+    {
+        int status;
+        waitpid(pid[i], &status, 0);
+        YAZ_CHECK(status == 0);
+    }
+#else
+    tst();
 #endif
+}
+
+
+int main(int argc, char **argv)
+{
+    char logname[220];
+    YAZ_CHECK_INIT(argc, argv);
+
+    sprintf(logname, "%.200s.log", argv[0]);
+    yaz_log_init_file(logname);
+
+    yaz_log_time_format("%s:%!");
+
+    zebra_flock_init();
+
+    test_fd = open("tstflock.out", (O_BINARY|O_CREAT|O_RDWR), 0666);
+    YAZ_CHECK(test_fd != -1);
+    if (test_fd != -1)
+    {
+        fork_tst();
+    }
     YAZ_CHECK_TERM;
 }
+
+
 /*
  * Local variables:
  * c-basic-offset: 4