tdbc::odbc

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

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

Overview
Comment:Bring test env var names into alignment with the other TDBC drivers. env() -> ::env() Maybe TDBCODBC_TEST_TYPE is a bit vague?
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tdbcodbc-stwo
Files: files | file ages | folders
SHA1: f0bb1d74492c2d2326e3c2bf8f1c3b828d1ea3e2
User & Date: stu 2017-05-20 01:21:54
Context
2017-05-23
19:35
Merge tdbcodbc-stwo. check-in: 5289d1ce64 user: stu tags: trunk
2017-05-20
01:21
Bring test env var names into alignment with the other TDBC drivers. env() -> ::env() Maybe TDBCODBC_TEST_TYPE is a bit vague? Closed-Leaf check-in: f0bb1d7449 user: stu tags: tdbcodbc-stwo
2017-05-17
14:31
Add intptr_t macros. check-in: 38f208cb79 user: stwo tags: tdbcodbc-stwo
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/tdbcodbc.test.

14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
namespace import -force ::tcltest::*
loadTestedCommands
package require tdbc::odbc

# Test setup. Figure out what sort of database we have.  Default on Windows
# is SQL Server Express, and on Unix is SQLite3

if {![info exists env(TDBCODBC_TYPE)] || $env(TDBCODBC_TYPE) eq {default}} {
    set testdir [makeDirectory tdbctest]
    if {$tcl_platform(platform) eq {windows}} {
	set env(TDBCODBC_TYPE) sqlserver
    } else {
	set env(TDBCODBC_TYPE) sqlite
    }
}

# Jet and SQL Server are Windows-only

if {$env(TDBCODBC_TYPE) in {jet sqlserver}} {
    if {$::tcl_platform(platform) ne {windows}} {
	puts "$env(TDBCODBC_TYPE) testing is available on the\
                     Windows platform only"
	removeDirectory tdbctest
	cleanupTests
	return
    }
}

# Configure the selected database

switch -exact -- $env(TDBCODBC_TYPE) {

    jet {

	# Begin by creating an empty .MDB file

	set testdir [makeDirectory tdbctest]
	set testFileName test.mdb






|


|

|





|

|









|







14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
namespace import -force ::tcltest::*
loadTestedCommands
package require tdbc::odbc

# Test setup. Figure out what sort of database we have.  Default on Windows
# is SQL Server Express, and on Unix is SQLite3

if {![info exists ::env(TDBCODBC_TEST_TYPE)] || $::env(TDBCODBC_TEST_TYPE) eq {default}} {
    set testdir [makeDirectory tdbctest]
    if {$tcl_platform(platform) eq {windows}} {
	set ::env(TDBCODBC_TEST_TYPE) sqlserver
    } else {
	set ::env(TDBCODBC_TEST_TYPE) sqlite
    }
}

# Jet and SQL Server are Windows-only

if {$::env(TDBCODBC_TEST_TYPE) in {jet sqlserver}} {
    if {$::tcl_platform(platform) ne {windows}} {
	puts "$::env(TDBCODBC_TEST_TYPE) testing is available on the\
                     Windows platform only"
	removeDirectory tdbctest
	cleanupTests
	return
    }
}

# Configure the selected database

switch -exact -- $::env(TDBCODBC_TEST_TYPE) {

    jet {

	# Begin by creating an empty .MDB file

	set testdir [makeDirectory tdbctest]
	set testFileName test.mdb