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 |
Timelines: | family | ancestors | descendants | both | tdbcodbc-stwo |
Files: | files | file ages | folders |
SHA1: |
f0bb1d74492c2d2326e3c2bf8f1c3b82 |
User & Date: | stu 2017-05-20 01:21:54.261 |
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 | 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 | | | | | | | | 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 |
︙ | ︙ |