/ Check-in [13b49756]
Login
SQLite training in Houston TX on 2019-11-05 (details)
Part of the 2019 Tcl Conference

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Remove debugging puts from concurrrent3.test.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | begin-concurrent
Files: files | file ages | folders
SHA3-256: 13b4975681f249831a22562d1c26958f841ea77ca779858b0bee735dd30b710e
User & Date: drh 2018-03-20 13:54:22
Wiki:begin-concurrent
Context
2018-04-24
19:21
Merge latest trunk changes into this branch. check-in: b27bd799 user: dan tags: begin-concurrent
2018-03-20
14:00
Merge all recent trunk enchancements, and especially the autoincrement write reduction fix. check-in: 25790049 user: drh tags: begin-concurrent-pnu
13:54
Remove debugging puts from concurrrent3.test. check-in: 13b49756 user: drh tags: begin-concurrent
13:52
Merge all recent enhancements from trunk. check-in: b0c2f760 user: drh tags: begin-concurrent
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to test/concurrent3.test.

23
24
25
26
27
28
29
30



31
32
33
34
35
36
37
...
214
215
216
217
218
219
220
221
222
223

224
225
226
227
228
229
  finish_test
  return
}

db close
sqlite3_shutdown
test_sqlite3_log xLog
proc xLog {error_code msg} { puts "$error_code: $msg" }



reset_db

proc create_schema {} {
  db eval {
    PRAGMA journal_mode = wal;

    CREATE TABLE t1(x, y);
................................................................................
      if {$res != "ok"} { puts "after $db $rc: $res" ; after 1000000 }
    }
  } {}

  foreach db $DBLIST { 
    $db close 
  }
  foreach k [lsort [array names used]] {
    puts "$k: $stats($k,0) committed, $stats($k,1) rolled back"
  }

}



finish_test








|
>
>
>







 







|
|
<
>





<
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
...
217
218
219
220
221
222
223
224
225

226
227
228
229
230
231

  finish_test
  return
}

db close
sqlite3_shutdown
test_sqlite3_log xLog
proc xLog {error_code msg} {
  # puts "$error_code: $msg"
  # Enable the previous for debugging
}
reset_db

proc create_schema {} {
  db eval {
    PRAGMA journal_mode = wal;

    CREATE TABLE t1(x, y);
................................................................................
      if {$res != "ok"} { puts "after $db $rc: $res" ; after 1000000 }
    }
  } {}

  foreach db $DBLIST { 
    $db close 
  }
  # foreach k [lsort [array names used]] {
  #   puts "$k: $stats($k,0) committed, $stats($k,1) rolled back"

  # }
}



finish_test