Return to pager3.test CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test

Annotation of embedaddon/sqlite3/test/pager3.test, revision 1.1.1.1

1.1       misho       1: # 2010 June 15
                      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: source $testdir/lock_common.tcl
                     16: source $testdir/malloc_common.tcl
                     17: source $testdir/wal_common.tcl
                     18: 
                     19: 
                     20: foreach {tn sql res j} {
                     21:   1 "PRAGMA journal_mode = DELETE"  delete        0
                     22:   2 "CREATE TABLE t1(a, b)"         {}            0
                     23:   3 "PRAGMA locking_mode=EXCLUSIVE" {exclusive}   0
                     24:   4 "INSERT INTO t1 VALUES(1, 2)"   {}            1
                     25:   5 "PRAGMA locking_mode=NORMAL"    {normal}      1
                     26:   6 "SELECT * FROM t1"              {1 2}         0
                     27: } {
                     28:   do_execsql_test pager3-1.$tn.1 $sql $res
                     29:   do_test         pager3-1.$tn.2 { file exists test.db-journal } $j
                     30: }
                     31: 
                     32: 
                     33: finish_test