Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Revise how the global connection flags are output by the test suite infrastructure. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
1fb906b724ddd75464b7acb5e47d4d67 |
| User & Date: | mistachkin 2015-02-20 19:37:26 |
Context
|
2015-02-24
| ||
| 18:30 | Update the estimated release date for 1.0.95.0. check-in: 2c806f38a5 user: mistachkin tags: trunk | |
|
2015-02-23
| ||
| 18:05 | Merge updates from trunk. check-in: f1f772dbd0 user: mistachkin tags: preRelease | |
|
2015-02-20
| ||
| 19:37 | Revise how the global connection flags are output by the test suite infrastructure. check-in: 1fb906b724 user: mistachkin tags: trunk | |
| 19:14 | Update the master release archive manifest. check-in: 6fb0f14b81 user: mistachkin tags: trunk | |
Changes
Changes to Tests/common.eagle.
1648 1649 1650 1651 1652 1653 1654 1655 1656 1657 1658 1659 1660 1661 1662 1663 1664 1665 1666 1667 1668 1669 1670 1671 1672 1673 1674 1675 1676 1677 1678 1679 1680 1681 |
tputs $::test_channel [appendArgs \
"---- shared connection flags for " $database \
" are: <unavailable>\n"]
}
}
}
#
# NOTE: If there are any global (per test run) connection flags currently
# set, use them now (i.e. by combining them with the ones for this
# connection).
#
if {[info exists ::connection_flags]} then {
#
# NOTE: Show (and log) the detected global connection flags.
#
if {!$quiet} then {
if {![info exists ::no(emitGlobalFlags)] && \
(![info exists ::no(emitGlobalFlagsIfNone)] || \
![hasNoFlags ::connection_flags false])} then {
tputs $::test_channel [appendArgs \
"---- global connection flags detected: " \
[expr {![hasNoFlags ::connection_flags false] ? \
[appendArgs \" $::connection_flags \"] : "<none>"}] \n]
}
}
#
# NOTE: Combine and/or replace the connection flags and then show the
# new value.
#
set flags [combineFlags $flags $::connection_flags]
#
|
> > > > > > > > > > > > > > < < < < < < < < < < < < < < |
1648 1649 1650 1651 1652 1653 1654 1655 1656 1657 1658 1659 1660 1661 1662 1663 1664 1665 1666 1667 1668 1669 1670 1671 1672 1673 1674 1675 1676 1677 1678 1679 1680 1681 |
tputs $::test_channel [appendArgs \
"---- shared connection flags for " $database \
" are: <unavailable>\n"]
}
}
}
#
# NOTE: Show (and log) the detected global connection flags, if any.
#
if {!$quiet} then {
if {![info exists ::no(emitGlobalFlags)] && \
(![info exists ::no(emitGlobalFlagsIfNone)] || \
![hasNoFlags ::connection_flags false])} then {
tputs $::test_channel [appendArgs \
"---- global connection flags are: " \
[expr {![hasNoFlags ::connection_flags false] ? \
[appendArgs \" $::connection_flags \"] : "<none>"}] \n]
}
}
#
# NOTE: If there are any global (per test run) connection flags currently
# set, use them now (i.e. by combining them with the ones for this
# connection).
#
if {[info exists ::connection_flags]} then {
#
# NOTE: Combine and/or replace the connection flags and then show the
# new value.
#
set flags [combineFlags $flags $::connection_flags]
#
|