Index: test/backup2.test ================================================================== --- test/backup2.test +++ test/backup2.test @@ -11,11 +11,11 @@ # This file implements regression tests for SQLite library. The # focus of this file is testing the "backup" and "restore" methods # of the TCL interface - methods which are based on the # sqlite3_backup_XXX API. # -# $Id: backup2.test,v 1.2 2009/02/11 16:06:19 shane Exp $ +# $Id: backup2.test,v 1.3 2009/03/18 13:55:30 danielk1977 Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl # Fill a database with test data. @@ -109,12 +109,12 @@ } {1 {backup failed: attempt to write a readonly database}} # Try to backup to something that is not a database file. # do_test backup2-7 { - catch {file attributes bu2.db -permissions rw-------} catch {file attributes bu2.db -readonly 0} + catch {file attributes bu2.db -permissions rw-------} set out [open bu2.db w] puts $out "This is not a valid database file" close $out set rc [catch {db backup temp bu2.db} res] lappend rc $res