Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix subtle race condition in test 'data-1.33' that can cause spurious failures. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | release-1.0.83.0 |
| Files: | files | file ages | folders |
| SHA1: |
27ac3fc67290de2eefe7893a26b3ff65 |
| User & Date: | mistachkin 2012-12-31 10:43:38 |
Context
|
2012-12-31
| ||
| 13:02 | Enable building the debug configuration for the .NET Compact Framework. Fix a missing using directive in same. check-in: 1a1bcc1d87 user: mistachkin tags: release-1.0.83.0 | |
| 10:43 | Fix subtle race condition in test 'data-1.33' that can cause spurious failures. check-in: 27ac3fc672 user: mistachkin tags: release-1.0.83.0 | |
| 09:08 | Backport fix for ticket [a0677309f0] to the 1.0.83.0 release branch. check-in: 7b4f7b6d48 user: mistachkin tags: release-1.0.83.0 | |
Changes
Changes to Tests/basic.eagle.
1688 1689 1690 1691 1692 1693 1694 1695 1696 1697 1698 1699 1700 1701 1702 1703 1704 1705 1706 1707 1708 1709 1710 1711 1712 1713 1714 1715 1716 1717 1718 1719 1720 1721 1722 1723 1724 |
set found(data) [expr \
{[llength [file list $directory(data) $fileName]] == 1}]
set t [object create -alias Thread threadStart]
sql execute $db "BEGIN TRANSACTION;"; $t Start
for {set i 1} {$i < 100} {incr i} {
#
# NOTE: Execute a query that should force the creation of a temporary file
# for its statement journal.
#
sql execute $db "UPDATE t1 SET x = ?;" [list param1 String $i]
#
# NOTE: Give the other thread some time to notice the temporary file.
#
after 1000
#
# NOTE: Stop when the other thread confirms that the temporary file was
# created in the correct directory.
#
if {[info exists found(temp)] && $found(temp)} then {
break
}
}
$t Join; sql execute $db "COMMIT TRANSACTION;"
lappend result $found(data) $found(temp); set result
} -cleanup {
#
# NOTE: Close the database; however, do not attempt to delete the file as
# it is not located in the database directory known to the cleanupDb
# procedure (i.e. the one returned by getDatabaseDirectory).
#
cleanupDb $fileName db true false false
|
| | > | > |
1688 1689 1690 1691 1692 1693 1694 1695 1696 1697 1698 1699 1700 1701 1702 1703 1704 1705 1706 1707 1708 1709 1710 1711 1712 1713 1714 1715 1716 1717 1718 1719 1720 1721 1722 1723 1724 1725 1726 |
set found(data) [expr \
{[llength [file list $directory(data) $fileName]] == 1}]
set t [object create -alias Thread threadStart]
sql execute $db "BEGIN TRANSACTION;"; $t Start
for {set i 1} {$i < 1000} {incr i} {
#
# NOTE: Execute a query that should force the creation of a temporary file
# for its statement journal.
#
sql execute $db "UPDATE t1 SET x = ?;" [list param1 String $i]
#
# NOTE: Give the other thread some time to notice the temporary file.
#
after [expr {int(rand() * 1000)}]
#
# NOTE: Stop when the other thread confirms that the temporary file was
# created in the correct directory.
#
if {[info exists found(temp)] && $found(temp)} then {
break
}
}
$t Join; sql execute $db "COMMIT TRANSACTION;"
lappend result $found(data) [expr {[info exists found(temp)] ? \
$found(temp) : False}]; set result
} -cleanup {
#
# NOTE: Close the database; however, do not attempt to delete the file as
# it is not located in the database directory known to the cleanupDb
# procedure (i.e. the one returned by getDatabaseDirectory).
#
cleanupDb $fileName db true false false
|