SQLite

Check-in [4bfb30d20b]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Disable the unreadable file test (attach-6.2) under windows because of problems in the OS. (CVS 1000)
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 4bfb30d20bdd33c6e26c8fb8392a75d3cf2ee4bd
User & Date: drh 2003-06-04 12:31:53.000
Context
2003-06-04
12:40
Update the version number to 2.8.3. (CVS 1001) (check-in: c96f5bf0d7 user: drh tags: trunk)
12:31
Disable the unreadable file test (attach-6.2) under windows because of problems in the OS. (CVS 1000) (check-in: 4bfb30d20b user: drh tags: trunk)
12:23
Avoid corrupting indices when doing a REPLACE on a table with an INTEGER PRIMARY KEY that also has another index. Ticket #334. (CVS 999) (check-in: e813faae0e user: drh tags: trunk)
Changes
Unified Diff Ignore Whitespace Patch
Changes to test/attach.test.
︙︙
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

#    May you share freely, never taking more than you give.
#
#***********************************************************************
# This file implements regression tests for SQLite library.  The
# focus of this script is testing the ATTACH and DETACH commands
# and related functionality.
#
# $Id: attach.test,v 1.7 2003/06/03 01:47:12 drh Exp $
#

set testdir [file dirname $argv0]
source $testdir/tester.tcl

for {set i 2} {$i<=15} {incr i} {
  file delete -force test$i.db








|








8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

#    May you share freely, never taking more than you give.
#
#***********************************************************************
# This file implements regression tests for SQLite library.  The
# focus of this script is testing the ATTACH and DETACH commands
# and related functionality.
#
# $Id: attach.test,v 1.8 2003/06/04 12:31:53 drh Exp $
#

set testdir [file dirname $argv0]
source $testdir/tester.tcl

for {set i 2} {$i<=15} {incr i} {
  file delete -force test$i.db
︙︙
555
556
557
558
559
560
561

562
563
564
565
566
567
568
569
570
571
572

573
574
575
576
577
578
579
580

#
do_test attach-6.1 {
  catchsql {
    ATTACH DATABASE 'no-such-file' AS nosuch;
  }
} {1 {cannot attach empty database: nosuch}}
file delete -force no-such-file

do_test attach-6.2 {
  sqlite dbx cannot-read
  dbx eval {CREATE TABLE t1(a,b,c)}
  dbx close
  catch {file attributes cannot-read -permission 0000}
  catch {file attributes cannot-read -readonly 1}
  catchsql {
    ATTACH DATABASE 'cannot-read' AS noread;
  }
} {1 {unable to open database: cannot-read}}
file delete -force cannot-read


for {set i 2} {$i<=15} {incr i} {
  catch {db$i close}
}
file delete -force test2.db


finish_test








>
|
|
|
|
|
<
|
|
|
|
|
>









555
556
557
558
559
560
561
562
563
564
565
566
567

568
569
570
571
572
573
574
575
576
577
578
579
580
581

#
do_test attach-6.1 {
  catchsql {
    ATTACH DATABASE 'no-such-file' AS nosuch;
  }
} {1 {cannot attach empty database: nosuch}}
file delete -force no-such-file
if {$tcl_platform(platform)=="unix"} {
  do_test attach-6.2 {
    sqlite dbx cannot-read
    dbx eval {CREATE TABLE t1(a,b,c)}
    dbx close
    file attributes cannot-read -permission 0000

    catchsql {
      ATTACH DATABASE 'cannot-read' AS noread;
    }
  } {1 {unable to open database: cannot-read}}
  file delete -force cannot-read
}

for {set i 2} {$i<=15} {incr i} {
  catch {db$i close}
}
file delete -force test2.db


finish_test