Chromium Code Reviews
chromiumcodereview-hr@appspot.gserviceaccount.com (chromiumcodereview-hr) | Please choose your nickname with Settings | Help | Chromium Project | Gerrit Changes | Sign out
(745)

Unified Diff: third_party/sqlite/sqlite-src-3080704/test/incrblob_err.test

Issue 2363173002: [sqlite] Remove obsolete reference version 3.8.7.4. (Closed)
Patch Set: Created 4 years, 3 months ago
Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.
Jump to:
View side-by-side diff with in-line comments
Download patch
Index: third_party/sqlite/sqlite-src-3080704/test/incrblob_err.test
diff --git a/third_party/sqlite/sqlite-src-3080704/test/incrblob_err.test b/third_party/sqlite/sqlite-src-3080704/test/incrblob_err.test
deleted file mode 100644
index a08bea3e4e6609ac396e96d07200f2a0279eec46..0000000000000000000000000000000000000000
--- a/third_party/sqlite/sqlite-src-3080704/test/incrblob_err.test
+++ /dev/null
@@ -1,140 +0,0 @@
-# 2007 May 1
-#
-# The author disclaims copyright to this source code. In place of
-# a legal notice, here is a blessing:
-#
-# May you do good and not evil.
-# May you find forgiveness for yourself and forgive others.
-# May you share freely, never taking more than you give.
-#
-#***********************************************************************
-#
-# $Id: incrblob_err.test,v 1.14 2008/07/18 17:16:27 drh Exp $
-#
-
-set testdir [file dirname $argv0]
-source $testdir/tester.tcl
-set ::testprefix incrblob_err
-
-ifcapable {!incrblob || !memdebug || !tclvar} {
- finish_test
- return
-}
-
-source $testdir/malloc_common.tcl
-
-unset -nocomplain ::fd ::data
-set ::fd [open [info script]]
-set ::data [read $::fd]
-close $::fd
-
-do_malloc_test 1 -tclprep {
- set bytes [file size [info script]]
- execsql {
- CREATE TABLE blobs(k, v BLOB);
- INSERT INTO blobs VALUES(1, zeroblob($::bytes));
- }
-} -tclbody {
- set ::blob [db incrblob blobs v 1]
- fconfigure $::blob -translation binary
- set rc [catch {puts -nonewline $::blob $::data}]
- if {$rc} { error "out of memory" }
-}
-
-do_malloc_test 2 -tclprep {
- execsql {
- CREATE TABLE blobs(k, v BLOB);
- INSERT INTO blobs VALUES(1, $::data);
- }
-} -tclbody {
- set ::blob [db incrblob blobs v 1]
- set rc [catch {set ::r [read $::blob]}]
- if {$rc} {
- error "out of memory"
- } elseif {$::r ne $::data} {
- error "Bad data read..."
- }
-}
-
-do_malloc_test 3 -tclprep {
- execsql {
- CREATE TABLE blobs(k, v BLOB);
- INSERT INTO blobs VALUES(1, $::data);
- }
-} -tclbody {
- set ::blob [db incrblob blobs v 1]
- set rc [catch {set ::r [read $::blob]}]
- if {$rc} {
- error "out of memory"
- } elseif {$::r ne $::data} {
- error "Bad data read..."
- }
- set rc [catch {close $::blob}]
- if {$rc} {
- error "out of memory"
- }
-}
-
-do_ioerr_test incrblob_err-4 -cksum 1 -sqlprep {
- CREATE TABLE blobs(k, v BLOB);
- INSERT INTO blobs VALUES(1, $::data);
-} -tclbody {
- set ::blob [db incrblob blobs v 1]
- read $::blob
-}
-
-do_ioerr_test incrblob_err-5 -cksum 1 -sqlprep {
- CREATE TABLE blobs(k, v BLOB);
- INSERT INTO blobs VALUES(1, zeroblob(length(CAST($::data AS BLOB))));
-} -tclbody {
- set ::blob [db incrblob blobs v 1]
- fconfigure $::blob -translation binary
- puts -nonewline $::blob $::data
- close $::blob
-}
-
-do_ioerr_test incrblob_err-6 -cksum 1 -sqlprep {
- CREATE TABLE blobs(k, v BLOB);
- INSERT INTO blobs VALUES(1, $::data || $::data || $::data);
-} -tclbody {
- set ::blob [db incrblob blobs v 1]
- fconfigure $::blob -translation binary
- seek $::blob -20 end
- puts -nonewline $::blob "12345678900987654321"
- close $::blob
-}
-
-do_ioerr_test incrblob_err-7 -cksum 1 -sqlprep {
- PRAGMA auto_vacuum = 1;
- CREATE TABLE blobs(k INTEGER PRIMARY KEY, v BLOB);
- INSERT INTO blobs VALUES(1, zeroblob(500 * 1020));
-} -tclbody {
- # Read some data from the end of the large blob inserted into table
- # "blobs". This forces the IO error to occur while reading a pointer
- # map page for the purposes of seeking to the end of the blob.
- #
- sqlite3 db2 test.db
- set ::blob [db2 incrblob blobs v 1]
- sqlite3_blob_read $::blob [expr 500*1020-20] 20
- close $::blob
-}
-catch {db2 close}
-
-do_ioerr_test incrblob_err-8 -cksum 1 -sqlprep {
- PRAGMA auto_vacuum = 1;
- CREATE TABLE blobs(k INTEGER PRIMARY KEY, v BLOB);
- INSERT INTO blobs VALUES(1, zeroblob(500 * 1020));
-} -tclbody {
- # Read some data from the end of the large blob inserted into table
- # "blobs". This forces the IO error to occur while reading a pointer
- # map page for the purposes of seeking to the end of the blob.
- #
- sqlite3 db2 test.db
- set ::blob [db2 incrblob blobs v 1]
- sqlite3_blob_write $::blob [expr 500*1020-20] 12345678900987654321
- close $::blob
-}
-
-catch {db2 close}
-
-finish_test

Powered by Google App Engine
This is Rietveld 408576698