gitlab.com/CoiaPrant/sqlite3@v1.19.1/testdata/tcl/incrblob4.test (about)

     1  # 2012 March 23
     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  #
    12  #
    13  set testdir [file dirname $argv0]
    14  source $testdir/tester.tcl
    15  ifcapable {!incrblob} { finish_test ; return }
    16  set testprefix incrblob4
    17  
    18  proc create_t1 {} {
    19    execsql {
    20      PRAGMA page_size = 1024;
    21      CREATE TABLE t1(k INTEGER PRIMARY KEY, v);
    22    }
    23  }
    24  
    25  proc populate_t1 {} {
    26    set data [list a b c d e f g h i j k l m n o p q r s t u v w x y z]
    27    foreach d $data {
    28      set blob [string repeat $d 900]
    29      execsql { INSERT INTO t1(v) VALUES($blob) }
    30    }
    31  }
    32  
    33  
    34  do_test 1.1 { 
    35    create_t1
    36    populate_t1 
    37  } {}
    38  
    39  do_test 1.2 {
    40    set blob [db incrblob t1 v 5]
    41    read $blob 10
    42  } {eeeeeeeeee}
    43  
    44  do_test 1.3 {
    45    execsql { DELETE FROM t1 }
    46    populate_t1
    47  } {}
    48  
    49  
    50  
    51  do_test 2.1 { 
    52    reset_db
    53    create_t1
    54    populate_t1 
    55  } {}
    56  
    57  do_test 2.2 {
    58    set blob [db incrblob t1 v 10]
    59    read $blob 10
    60  } {jjjjjjjjjj}
    61  
    62  do_test 2.3 {
    63    set new [string repeat % 900]
    64    execsql { DELETE FROM t1 WHERE k=10 }
    65    execsql { DELETE FROM t1 WHERE k=9 }
    66    execsql { INSERT INTO t1(v) VALUES($new) }
    67  } {}
    68  
    69  
    70  
    71  do_test 3.1 {
    72    reset_db
    73    create_t1
    74    populate_t1 
    75  } {}
    76  
    77  do_test 3.2 {
    78    set blob [db incrblob t1 v 20]
    79    read $blob 10
    80  } {tttttttttt}
    81  
    82  do_test 3.3 {
    83    set new [string repeat % 900]
    84    execsql { UPDATE t1 SET v = $new WHERE k = 20 }
    85    execsql { DELETE FROM t1 WHERE k=19 }
    86    execsql { INSERT INTO t1(v) VALUES($new) }
    87  } {}
    88  
    89  #-------------------------------------------------------------------------
    90  # Test that it is not possible to DROP a table with an incremental blob
    91  # cursor open on it.
    92  #
    93  do_execsql_test 4.1 {
    94    CREATE TABLE t2(a INTEGER PRIMARY KEY, b);
    95    INSERT INTO t2 VALUES(456, '0123456789');
    96  }
    97  do_test 4.2 {
    98    set blob [db incrblob -readonly t2 b 456]
    99    read $blob 5
   100  } {01234}
   101  do_catchsql_test 4.3 {
   102    DROP TABLE t2
   103  } {1 {database table is locked}}
   104  do_test 4.4 {
   105    sqlite3_extended_errcode db
   106  } {SQLITE_LOCKED}
   107  close $blob
   108  
   109  finish_test