System.Data.SQLite

Check-in [e1319dd971]
Login

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

Overview
Comment:Revise the CLR method used to force a full garbage collection in the unit test infrastructure.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: e1319dd971f96373ee3d284fbf89dde83d941838
User & Date: mistachkin 2011-12-16 08:45:07.204
Context
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
08:33
Allow the directory used for test databases to be easily overridden for the vast majority of tests. check-in: b35fffe201 user: mistachkin tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to Tests/common.eagle.
︙︙
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608


        if {!$quiet} then {
          tputs $channel [appendArgs $memory \n]
        }
      }

      if {$collect} then {
        if {[catch {
                object invoke GC Collect
                object invoke GC WaitForPendingFinalizers
                object invoke GC Collect} error]} then {
          tputs $channel [appendArgs \
              "==== WARNING: failed to garbage collect, error: " \
              \n\t $error \n]
        }
      }

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








|
<
<
<

|








589
590
591
592
593
594
595
596



597
598
599
600
601
602
603
604
605


        if {!$quiet} then {
          tputs $channel [appendArgs $memory \n]
        }
      }

      if {$collect} then {
        if {[catch {object invoke GC GetTotalMemory true} error]} then {



          tputs $channel [appendArgs \
              "==== WARNING: failed full garbage collection, error: " \
              \n\t $error \n]
        }
      }

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