System.Data.SQLite

Check-in [ef31bb555b]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Revise the CLR method used to query the amount of memory in use for the unit test infrastructure.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: ef31bb555b21feffd71d73dc68efe87c48a14917
User & Date: mistachkin 2011-12-16 08:59:38.708
Context
2011-12-17
01:01
Prevent logging superfluous messages having to do with library initialization checking, ticket [e30b820248]. check-in: c3b4597979 user: mistachkin tags: trunk
2011-12-16
08:59
Revise the CLR method used to query the amount of memory in use for the unit test infrastructure. check-in: ef31bb555b user: mistachkin tags: trunk
08:45
Revise the CLR method used to force a full garbage collection in the unit test infrastructure. check-in: e1319dd971 user: mistachkin tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to Tests/common.eagle.
︙︙
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614

        }
      }

      if {!$quiet} then {
        tputs $channel "---- current memory in use by the CLR... "
      }

      if {[catch {getDictionaryValue [debug memory] gc} memory] == 0} then {
        if {[string is integer -strict $memory]} then {
          if {!$quiet} then {
            tputs $channel [appendArgs $memory " bytes\n"]
          }
        } else {
          set memory invalid









|








600
601
602
603
604
605
606
607
608
609
610
611
612
613
614

        }
      }

      if {!$quiet} then {
        tputs $channel "---- current memory in use by the CLR... "
      }

      if {[catch {object invoke GC GetTotalMemory false} memory] == 0} then {
        if {[string is integer -strict $memory]} then {
          if {!$quiet} then {
            tputs $channel [appendArgs $memory " bytes\n"]
          }
        } else {
          set memory invalid
︙︙