Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | test suite debug |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
4cf406f955ff2158e0c49c7cb654996e |
| User & Date: | dgp 2012-12-07 20:44:54 |
Context
|
2012-12-10
| ||
| 15:07 | Put win/* nmake support files in the distribution. check-in: 10638f86a3 user: dgp tags: trunk, tdbcodbc-1-0-0 | |
|
2012-12-07
| ||
| 20:44 | test suite debug check-in: 4cf406f955 user: dgp tags: trunk | |
|
2012-12-06
| ||
| 15:40 | Contributed build support on Windows, MSVC. check-in: 84a2d2e4c7 user: dgp tags: trunk | |
Changes
Changes to tests/tdbcodbc.test.
| ︙ | ︙ | |||
29 30 31 32 33 34 35 36 37 38 39 40 41 42 |
# 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"
cleanupTests
return
}
}
# Configure the selected database
| > | 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 |
# 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
|
| ︙ | ︙ | |||
152 153 154 155 156 157 158 159 160 161 162 163 164 165 |
#-------------------------------------------------------------------------------
#
# The tests that follow all require a connection to a database.
if {![tcltest::testConstraint connect]} {
puts "tests requiring a db connection skipped."
cleanupTests
return
}
tdbc::odbc::connection create ::db $::connStr
catch {::db allrows {DROP TABLE people}}
#-------------------------------------------------------------------------------
| > | 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 |
#-------------------------------------------------------------------------------
#
# The tests that follow all require a connection to a database.
if {![tcltest::testConstraint connect]} {
puts "tests requiring a db connection skipped."
removeDirectory tdbctest
cleanupTests
return
}
tdbc::odbc::connection create ::db $::connStr
catch {::db allrows {DROP TABLE people}}
#-------------------------------------------------------------------------------
|
| ︙ | ︙ | |||
3890 3891 3892 3893 3894 3895 3896 |
puts [info class instances tdbc::statement]
puts [info class instances tdbc::resultset]
if {[info exists testFileName]} {
catch {removeFile $testFileName $testdir}
}
| | | 3892 3893 3894 3895 3896 3897 3898 3899 3900 3901 3902 3903 3904 3905 3906 |
puts [info class instances tdbc::statement]
puts [info class instances tdbc::resultset]
if {[info exists testFileName]} {
catch {removeFile $testFileName $testdir}
}
removeDirectory tdbctest
cleanupTests
return
# Local Variables:
# mode: tcl
# End:
|