System.Data.SQLite
Check-in [1fb906b724]
Not logged in

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: 1fb906b724ddd75464b7acb5e47d4d678a5f1a94
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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]

        #