database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-29 08:01:23 +03:00
Code Activity

Return code was being dropped because of overridden variable in OP_IsUnique. Fix this and the test logic problem that hid it. (CVS 3025)

Browse Source 
FossilOrigin-Name: c30705a00d7d9d61fb9cb47a1019b1a186d690a7
This commit is contained in:
danielk1977
2006-01-24 13:09:33 +00:00
parent f011300000
commit f2fa8310f9
7 changed files with 39 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
test/tester.tcl
View File

@ -11,7 +11,7 @@
# This file implements some common TCL routines used for regression
# testing the SQLite library
#
# $Id: tester.tcl,v 1.63 2006/01/21 12:08:55 danielk1977 Exp $
# $Id: tester.tcl,v 1.64 2006/01/24 13:09:33 danielk1977 Exp $
# Make sure tclsqlite3 was compiled correctly. Abort now with an
# error message if not.
@ -382,9 +382,10 @@ proc do_ioerr_test {testname args} {
set r [catch $::ioerrorbody msg]
set ::go [expr {$::sqlite_io_error_pending<=0}]
set s [expr $::sqlite_io_error_hit==0]
set ::sqlite_io_error_hit 0
# puts "$::sqlite_io_error_pending $r $msg"
# puts "r=$r s=$s msg=\"$msg\""
expr { ($s && !$r) || (!$s && $r) }
# puts "r=$r s=$s go=$::go msg=\"$msg\""
expr { ($s && !$r && !$::go) || (!$s && $r && $::go) }
# expr {$::sqlite_io_error_pending>0 || $r!=0}
} {1}