File:  [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test / thread2.test
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs - revision graph
Tue Feb 21 17:04:16 2012 UTC (12 years, 10 months ago) by misho
Branches: sqlite3, MAIN
CVS tags: v3_7_10, HEAD
sqlite3

    1: # 2006 January 14
    2: #
    3: # The author disclaims copyright to this source code.  In place of
    4: # a legal notice, here is a blessing:
    5: #
    6: #    May you do good and not evil.
    7: #    May you find forgiveness for yourself and forgive others.
    8: #    May you share freely, never taking more than you give.
    9: #
   10: #***********************************************************************
   11: # This file implements regression tests for SQLite library.  The
   12: # focus of this script is multithreading behavior
   13: #
   14: # $Id: thread2.test,v 1.1.1.1 2012/02/21 17:04:16 misho Exp $
   15: 
   16: 
   17: set testdir [file dirname $argv0]
   18: source $testdir/tester.tcl
   19: 
   20: if {[run_thread_tests]==0} { finish_test ; return }
   21: 
   22: # Skip this whole file if the thread testing code is not enabled
   23: #
   24: if {[llength [info command thread_step]]==0 || [sqlite3 -has-codec]} {
   25:   finish_test
   26:   return
   27: }
   28: 
   29: # Create some data to work with
   30: #
   31: do_test thread1-1.1 {
   32:   execsql {
   33:     CREATE TABLE t1(a,b);
   34:     INSERT INTO t1 VALUES(1,'abcdefgh');
   35:     INSERT INTO t1 SELECT a+1, b||b FROM t1;
   36:     INSERT INTO t1 SELECT a+2, b||b FROM t1;
   37:     INSERT INTO t1 SELECT a+4, b||b FROM t1;
   38:     SELECT count(*), max(length(b)) FROM t1;
   39:   }
   40: } {8 64}
   41: 
   42: # Use the thread_swap command to move the database connections between
   43: # threads, then verify that they still work.
   44: #
   45: do_test thread2-1.2 {
   46:   db close
   47:   thread_create A test.db
   48:   thread_create B test.db
   49:   thread_swap A B
   50:   thread_compile A {SELECT a FROM t1 LIMIT 1}
   51:   thread_result A
   52: } {SQLITE_OK}
   53: do_test thread2-1.3 {
   54:   thread_step A
   55:   thread_result A
   56: } {SQLITE_ROW}
   57: do_test thread2-1.4 {
   58:   thread_argv A 0
   59: } {1}
   60: do_test thread2-1.5 {
   61:   thread_finalize A
   62:   thread_result A
   63: } {SQLITE_OK}
   64: do_test thread2-1.6 {
   65:   thread_compile B {SELECT a FROM t1 LIMIT 1}
   66:   thread_result B
   67: } {SQLITE_OK}
   68: do_test thread2-1.7 {
   69:   thread_step B
   70:   thread_result B
   71: } {SQLITE_ROW}
   72: do_test thread2-1.8 {
   73:   thread_argv B 0
   74: } {1}
   75: do_test thread2-1.9 {
   76:   thread_finalize B
   77:   thread_result B
   78: } {SQLITE_OK}
   79: 
   80: # Swap them again.
   81: #
   82: do_test thread2-2.2 {
   83:   thread_swap A B
   84:   thread_compile A {SELECT a FROM t1 LIMIT 1}
   85:   thread_result A
   86: } {SQLITE_OK}
   87: do_test thread2-2.3 {
   88:   thread_step A
   89:   thread_result A
   90: } {SQLITE_ROW}
   91: do_test thread2-2.4 {
   92:   thread_argv A 0
   93: } {1}
   94: do_test thread2-2.5 {
   95:   thread_finalize A
   96:   thread_result A
   97: } {SQLITE_OK}
   98: do_test thread2-2.6 {
   99:   thread_compile B {SELECT a FROM t1 LIMIT 1}
  100:   thread_result B
  101: } {SQLITE_OK}
  102: do_test thread2-2.7 {
  103:   thread_step B
  104:   thread_result B
  105: } {SQLITE_ROW}
  106: do_test thread2-2.8 {
  107:   thread_argv B 0
  108: } {1}
  109: do_test thread2-2.9 {
  110:   thread_finalize B
  111:   thread_result B
  112: } {SQLITE_OK}
  113: thread_halt A
  114: thread_halt B
  115: 
  116: # Also important to halt the worker threads, which are using spin
  117: # locks and eating away CPU cycles.
  118: #
  119: thread_halt *   
  120: finish_test

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>