Home | History | Annotate | Download | only in test 
      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.3 2008/10/07 15:25:49 drh 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
    121