Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Some cleanup for the unit tests and infrastructure. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
d5cabeb8df4901e66bfc24a0cda9e0e9 |
| User & Date: | mistachkin 2012-01-25 21:54:19 |
Context
|
2012-01-26
| ||
| 08:21 | Support global (per test run) connection flags in the unit test infrastructure to assist in debugging. check-in: 36579c6dfb user: mistachkin tags: trunk | |
|
2012-01-25
| ||
| 21:54 | Some cleanup for the unit tests and infrastructure. check-in: d5cabeb8df user: mistachkin tags: trunk | |
| 18:24 | Document recent changes in version history. check-in: db337c534c user: mistachkin tags: trunk | |
Changes
Changes to Tests/basic.eagle.
151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 ... 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 ... 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 |
###############################################################################
runTest {test data-1.4 {GetSchema with ReservedWords} -setup {
setupDb [set fileName data-1.4.db]
} -body {
set id [object invoke Interpreter.GetActive NextId]
set dataSource [file join [getDatabaseDirectory] data-1.4.db]
unset -nocomplain results errors
set code [compileCSharpWith [subst {
using System.Data;
using System.Data.SQLite;
................................................................................
DEFAULT 1
);
}
sql execute $db "CREATE TABLE t2(x INTEGER REFERENCES t3);"
set id [object invoke Interpreter.GetActive NextId]
set dataSource [file join [getDatabaseDirectory] data-1.5.db]
unset -nocomplain results errors
set code [compileCSharpWith [subst {
using System.Data;
using System.Data.SQLite;
................................................................................
###############################################################################
runTest {test data-1.6 {SQLITE_FCNTL_WIN32_AV_RETRY} -setup {
setupDb [set fileName data-1.6.db]
} -body {
set id [object invoke Interpreter.GetActive NextId]
set dataSource [file join [getDatabaseDirectory] data-1.6.db]
unset -nocomplain results errors
set code [compileCSharpWith [subst {
using System.Data;
using System.Data.SQLite;
|
| | | |
151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 ... 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 ... 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 |
###############################################################################
runTest {test data-1.4 {GetSchema with ReservedWords} -setup {
setupDb [set fileName data-1.4.db]
} -body {
set id [object invoke Interpreter.GetActive NextId]
set dataSource [file join [getDatabaseDirectory] $fileName]
unset -nocomplain results errors
set code [compileCSharpWith [subst {
using System.Data;
using System.Data.SQLite;
................................................................................
DEFAULT 1
);
}
sql execute $db "CREATE TABLE t2(x INTEGER REFERENCES t3);"
set id [object invoke Interpreter.GetActive NextId]
set dataSource [file join [getDatabaseDirectory] $fileName]
unset -nocomplain results errors
set code [compileCSharpWith [subst {
using System.Data;
using System.Data.SQLite;
................................................................................
###############################################################################
runTest {test data-1.6 {SQLITE_FCNTL_WIN32_AV_RETRY} -setup {
setupDb [set fileName data-1.6.db]
} -body {
set id [object invoke Interpreter.GetActive NextId]
set dataSource [file join [getDatabaseDirectory] $fileName]
unset -nocomplain results errors
set code [compileCSharpWith [subst {
using System.Data;
using System.Data.SQLite;
|
Changes to Tests/common.eagle.
399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 |
return $result
}
proc compileCSharpWith {
text memory symbols strict resultsVarName errorsVarName fileNames
args } {
#
# NOTE: Create the base command to evaluate and add the property settings
# that are almost always needed by our unit tests (i.e. the System
# and System.Data assembly references).
#
set command [list compileCSharp $text $memory $symbols $strict results \
errors ReferencedAssemblies.Add System.dll ReferencedAssemblies.Add \
System.Data.dll ReferencedAssemblies.Add System.Xml.dll]
#
# NOTE: Add all the provided file names as assembly references.
#
foreach fileName $fileNames {
lappend command ReferencedAssemblies.Add [getBinaryFileName $fileName]
}
#
# NOTE: Add the extra arguments, if any, to the command to evaluate.
#
eval lappend command $args
|
> > > > > > | < | |
399 400 401 402 403 404 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 |
return $result
}
proc compileCSharpWith {
text memory symbols strict resultsVarName errorsVarName fileNames
args } {
#
# NOTE: Since we are going to use this method name a lot, assign it to a
# variable first.
#
set add ReferencedAssemblies.Add
#
# NOTE: Create the base command to evaluate and add the property settings
# that are almost always needed by our unit tests (i.e. the System
# and System.Data assembly references).
#
set command [list compileCSharp $text $memory $symbols $strict results \
errors $add System.dll $add System.Data.dll $add System.Xml.dll]
#
# NOTE: Add all the provided file names as assembly references.
#
foreach fileName $fileNames {
lappend command $add [getBinaryFileName $fileName]
}
#
# NOTE: Add the extra arguments, if any, to the command to evaluate.
#
eval lappend command $args
|
Changes to Tests/tkt-e1b2e0f769.eagle.
27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 |
sql execute $db "CREATE TABLE t2(x INTEGER);"
foreach x [list 1 2 3] {
sql execute $db "INSERT INTO t1 (x) VALUES($x);"
}
set result1 [list]
set dataSource [file join [getDatabaseDirectory] tkt-e1b2e0f769-1.1.db]
foreach table [list t1 t2] {
set id [object invoke Interpreter.GetActive NextId]
set sql "SELECT x FROM $table ORDER BY x;"
unset -nocomplain results errors
|
| |
27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 |
sql execute $db "CREATE TABLE t2(x INTEGER);"
foreach x [list 1 2 3] {
sql execute $db "INSERT INTO t1 (x) VALUES($x);"
}
set result1 [list]
set dataSource [file join [getDatabaseDirectory] $fileName]
foreach table [list t1 t2] {
set id [object invoke Interpreter.GetActive NextId]
set sql "SELECT x FROM $table ORDER BY x;"
unset -nocomplain results errors
|