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: |
f0bb1d74492c2d2326e3c2bf8f1c3b82 |
| 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
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
|