tdbc::sqlite3

Check-in [f15492143a]
Login
Bounty program for improvements to Tcl and certain Tcl packages.

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

Overview
Comment:Tolerate evolving error messages from sqlite3.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk | tdbcsqlite3-1-0-1
Files: files | file ages | folders
SHA1:f15492143a78b63516d587334b7990b4edc6b768
User & Date: dgp 2014-08-18 20:15:28
Context
2014-10-23
19:30
[TDBC Bug 00b792] OpenBSD friendly docs. check-in: 74526bd0fa user: dgp tags: trunk
2014-08-18
20:15
Tolerate evolving error messages from sqlite3. check-in: f15492143a user: dgp tags: trunk, tdbcsqlite3-1-0-1
2014-08-14
18:08
bump to 1.0.1 check-in: 743600d86f user: dgp tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/tdbcsqlite3.test.

405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
	}]
	$stmt paramtype idnum integer
	$stmt paramtype name varchar 40
	set rs [$stmt execute {idnum 1 name fred}]
	rename $rs {}
    }
    -body {
	set status [catch {$stmt execute {idnum 1 name barney}} result]
	list $status $result
    }
    -cleanup {
	rename $stmt {}
	set stmt [::db prepare {
	    DELETE FROM people
	}]
	set rs [$stmt execute]
	rename $rs {}
	rename $stmt {}
    }
    -result {1 {PRIMARY KEY must be unique}}
}

if 0 {

# following tests check error syntax for 'paramtype' - and tdbcsqlite3
# ignores paramtype, so they're kind of meaningless








|
<










|







405
406
407
408
409
410
411
412

413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
	}]
	$stmt paramtype idnum integer
	$stmt paramtype name varchar 40
	set rs [$stmt execute {idnum 1 name fred}]
	rename $rs {}
    }
    -body {
	catch {$stmt execute {idnum 1 name barney}}

    }
    -cleanup {
	rename $stmt {}
	set stmt [::db prepare {
	    DELETE FROM people
	}]
	set rs [$stmt execute]
	rename $rs {}
	rename $stmt {}
    }
    -result 1
}

if 0 {

# following tests check error syntax for 'paramtype' - and tdbcsqlite3
# ignores paramtype, so they're kind of meaningless