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

Updated for Windows compatibility. Test scripts only. (CVS 6285)

Browse Source 
FossilOrigin-Name: 2522ad1df3599fa71cd1d929142adaefaf3a4d67
This commit is contained in:
shane
2009-02-11 16:06:18 +00:00
parent 46f33ef93c
commit ce14f6245e
4 changed files with 35 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
test/backup2.test
View File

@ -13,7 +13,7 @@
# of the TCL interface - methods which are based on the
# sqlite3_backup_XXX API.
#
# $Id: backup2.test,v 1.1 2009/02/04 22:46:47 drh Exp $
# $Id: backup2.test,v 1.2 2009/02/11 16:06:19 shane Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
@ -137,12 +137,22 @@ do_test backup2-9 {
# Try to restore from an unreadable file.
#
do_test backup2-10 {
file delete -force bu3.db
file mkdir bu3.db
set rc [catch {db restore temp bu3.db} res]
lappend rc $res
} {1 {cannot open source database: disk I/O error}}
if {$tcl_platform(platform)=="windows"} {
do_test backup2-10 {
file delete -force bu3.db
file mkdir bu3.db
set rc [catch {db restore temp bu3.db} res]
lappend rc $res
} {1 {cannot open source database: unable to open database file}}
}
if {$tcl_platform(platform)!="windows"} {
do_test backup2-10 {
file delete -force bu3.db
file mkdir bu3.db
set rc [catch {db restore temp bu3.db} res]
lappend rc $res
} {1 {cannot open source database: disk I/O error}}
}
# Try to restore from something that is not a database file.
#