Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Add test to demonstrate a recently fixed (post-1.0.74.0) file handling leak. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
c851b1788c8022f68b94d8c0411b513a |
| User & Date: | mistachkin 2011-07-18 22:07:34.771 |
Context
|
2011-07-18
| ||
| 22:57 | More tests. check-in: 92efd59201 user: mistachkin tags: trunk | |
| 22:07 | Add test to demonstrate a recently fixed (post-1.0.74.0) file handling leak. check-in: c851b1788c user: mistachkin tags: trunk | |
| 00:16 | Update Eagle in externals to the official beta 16 release. check-in: dad2104128 user: mistachkin tags: trunk | |
Changes
Changes to Tests/basic.eagle.
| ︙ | ︙ | |||
361 362 363 364 365 366 367 368 369 370 371 372 373 374 |
cleanupDb $fileName
unset -nocomplain result count interval savedCount savedInterval results \
errors code dataSource id db fileName
} -constraints {eagle monoBug28 command.sql compile.DATA System.Data.SQLite} \
-match regexp -result {^Ok System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0\
True$}}
###############################################################################
unset -nocomplain testExeFile testLinqExeFile northwindEfDbFile testLinqOutFile
###############################################################################
| > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 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 432 433 434 435 |
cleanupDb $fileName
unset -nocomplain result count interval savedCount savedInterval results \
errors code dataSource id db fileName
} -constraints {eagle monoBug28 command.sql compile.DATA System.Data.SQLite} \
-match regexp -result {^Ok System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0\
True$}}
###############################################################################
runTest {test basic-1.7 {properly closed database file} -setup {
set fileName basic-1.7.db
} -body {
set id [object invoke Interpreter.GetActive NextId]
set dataSource [file join [getTemporaryPath] $fileName]
set sql { \
BEGIN EXCLUSIVE TRANSACTION; \
CREATE TABLE t1(x INTEGER); \
INSERT INTO t1 (x) VALUES(1); \
SELECT * FROM t1; \
}
unset -nocomplain results errors
set code [compileCSharpWith [subst {
using System.Data;
using System.Data.SQLite;
namespace _Dynamic${id}
{
public class Test${id}
{
public static void Main()
{
using (SQLiteConnection connection = new SQLiteConnection(
"Data Source=${dataSource};"))
{
connection.Open();
using (SQLiteCommand command = new SQLiteCommand(
"${sql}", connection))
{
using (SQLiteDataReader dataReader = command.ExecuteReader(
CommandBehavior.CloseConnection))
{
// do nothing.
}
}
}
}
}
}
}] results errors System.Data.SQLite.dll]
list $code $results \
[expr {[info exists errors] ? $errors : ""}] \
[expr {$code eq "Ok" ? [catch {
object invoke _Dynamic${id}.Test${id} Main
} result] : [set result ""]}] $result \
[close [open $dataSource RDONLY 0 "" -share None]]
} -cleanup {
cleanupDb $fileName
unset -nocomplain result results errors code sql dataSource id db fileName
} -constraints {eagle monoBug28 command.sql compile.DATA System.Data.SQLite} \
-match regexp -result {^Ok System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0\
\{\} \{\}$}}
###############################################################################
unset -nocomplain testExeFile testLinqExeFile northwindEfDbFile testLinqOutFile
###############################################################################
|
| ︙ | ︙ |