database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-30 19:03:16 +03:00
Code Activity

Change the name of the sanity_check PRAGMA to "integrity_check" and make

Browse Source 
it available on all compiles. (CVS 381)

FossilOrigin-Name: c6e9048e66c8d8e2d5f6c62aa724eef3e9d9f572
This commit is contained in:
drh
2002-02-19 13:39:21 +00:00
parent a80a1e6ae4
commit aaab5725db
20 changed files with 90 additions and 90 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
test/btree.test
View File

@ -11,7 +11,7 @@
# This file implements regression tests for SQLite library. The
# focus of this script is btree database backend
#
# $Id: btree.test,v 1.11 2001/11/23 00:24:12 drh Exp $
# $Id: btree.test,v 1.12 2002/02/19 13:39:23 drh Exp $
set testdir [file dirname $argv0]
@ -986,7 +986,7 @@ do_test btree-12.12 {
btree_key $::c1
} {402}
do_test btree-13.1 {
btree_sanity_check $::b1 2 3
btree_integrity_check $::b1 2 3
} {}
# To Do:

8
test/btree2.test
View File

@ -11,7 +11,7 @@
# This file implements regression tests for SQLite library. The
# focus of this script is btree database backend
#
# $Id: btree2.test,v 1.9 2001/10/22 02:58:11 drh Exp $
# $Id: btree2.test,v 1.10 2002/02/19 13:39:23 drh Exp $
set testdir [file dirname $argv0]
@ -53,7 +53,7 @@ do_test btree2-1.5 {
btree_delete $::c2
btree_close_cursor $::c2
btree_commit $::b
btree_sanity_check $::b 2 3 4 5 6
btree_integrity_check $::b 2 3 4 5 6
} {}
# This test module works by making lots of pseudo-random changes to a
@ -125,7 +125,7 @@ proc make_payload {keynum L len} {
# success or an error message if something is amiss.
#
proc check_invariants {} {
set ck [btree_sanity_check $::b 2 3 4 5 6]
set ck [btree_integrity_check $::b 2 3 4 5 6]
if {$ck!=""} {
puts "\n*** SANITY:\n$ck"
exit
@ -259,7 +259,7 @@ proc random_changes {n I K D} {
} elseif {[btree_move_to $::c6 $basekey]==0} {
btree_delete $::c6
}
# set ck [btree_sanity_check $::b 2 3 4 5 6]
# set ck [btree_integrity_check $::b 2 3 4 5 6]
# if {$ck!=""} {
# puts "\nSANITY CHECK FAILED!\n$ck"
# exit

4
test/conflict.test
View File

@ -13,7 +13,7 @@
# This file implements tests for the conflict resolution extension
# to SQLite.
#
# $Id: conflict.test,v 1.7 2002/02/03 19:06:03 drh Exp $
# $Id: conflict.test,v 1.8 2002/02/19 13:39:23 drh Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
@ -378,7 +378,7 @@ foreach {i conf1 conf2 cmd t0 t1 t2} {
}
do_test insert-99.1 {
set x [execsql {PRAGMA sanity_check}]
set x [execsql {PRAGMA integrity_check}]
if {$x==""} {set x ok}
set x
} {ok}

4
test/copy.test
View File

@ -11,7 +11,7 @@
# This file implements regression tests for SQLite library. The
# focus of this file is testing the COPY statement.
#
# $Id: copy.test,v 1.9 2002/02/03 19:06:03 drh Exp $
# $Id: copy.test,v 1.10 2002/02/19 13:39:23 drh Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
@ -227,7 +227,7 @@ do_test copy-5.7 {
} {0}
do_test copy-6.0 {
set x [execsql {PRAGMA sanity_check}]
set x [execsql {PRAGMA integrity_check}]
if {$x==""} {set x ok}
set x
} {ok}

4
test/insert.test
View File

@ -11,7 +11,7 @@
# This file implements regression tests for SQLite library. The
# focus of this file is testing the INSERT statement.
#
# $Id: insert.test,v 1.8 2002/02/18 13:56:37 drh Exp $
# $Id: insert.test,v 1.9 2002/02/19 13:39:23 drh Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
@ -157,7 +157,7 @@ do_test insert-3.4 {
execsql {SELECT * FROM test2 WHERE f1=22 AND f2=-4.44}
} {22 -4.44 hi abc-123 wham}
do_test insert-3.5 {
set x [execsql {PRAGMA sanity_check}]
set x [execsql {PRAGMA integrity_check}]
if {$x==""} {set x ok}
set x
} {ok}

4
test/insert2.test
View File

@ -12,7 +12,7 @@
# focus of this file is testing the INSERT statement that takes is
# result from a SELECT.
#
# $Id: insert2.test,v 1.6 2002/02/03 19:06:03 drh Exp $
# $Id: insert2.test,v 1.7 2002/02/19 13:39:23 drh Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
@ -113,7 +113,7 @@ do_test insert2-2.3 {
} {hi 2 1}
do_test insert2-4.0 {
set x [execsql {PRAGMA sanity_check}]
set x [execsql {PRAGMA integrity_check}]
if {$x==""} {set x ok}
set x
} {ok}