System.Data.SQLite: Check-in [5b5f922631]

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

Overview

Comment:	Improve diagnostic output from the .NET Compact Framework testing tool. Also, update the master release archive manifest.
Downloads:	Tarball \| ZIP archive \| SQL archive
Timelines:	family \| ancestors \| descendants \| both \| trunk
Files:	files \| file ages \| folders
SHA1:	5b5f9226315007ff86a0254823636d960630f450
User & Date:	mistachkin 2013-04-11 09:55:56

Context

2013-04-11
22:58		Add new error codes from the SQLite core library. check-in: d834d6896e user: mistachkin tags: trunk
09:55		Improve diagnostic output from the .NET Compact Framework testing tool. Also, update the master release archive manifest. check-in: 5b5f922631 user: mistachkin tags: trunk
2013-04-10
07:16		Add test for ticket [4a791e70ab]. check-in: f11d1e6b74 user: mistachkin tags: trunk

Changes

Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to Setup/deployAndTestCe.eagle.

    25     25   
    26     26   #
    27     27   # NOTE: This procedure will output a diagnostic message, typically to the
    28     28   #       standard output channel, using the [puts] command unless the global
    29     29   #       variable "quiet" is non-zero.
    30     30   #
    31     31   proc qputs { args } {
    32         -  if {!$::quiet} then {
           32  +  if {![info exists ::quiet] || !$::quiet} then {
    33     33       eval puts $args; flush stdout
    34     34     }
    35     35   }
    36     36   
    37     37   #
    38     38   # NOTE: This procedure looks up and returns the target device based on the
    39     39   #       locale, platform Id, and device Id.
................................................................................
   114    114       set name [lindex $names $index]; set value ""
   115    115   
   116    116       if {$argc > $index} then {
   117    117         set value [string trim [lindex $argv $index]]
   118    118       }
   119    119   
   120    120       if {[string length $value] > 0} then {
   121         -      set $name $value
          121  +      set $name $value; set defaultValue false
   122    122       } else {
   123         -      set $name $default($name)
          123  +      set $name $default($name); set defaultValue true
   124    124       }
          125  +
          126  +    qputs stdout [appendArgs \
          127  +        "named parameter \"" $name "\" value is now \"" [set $name] \" \
          128  +        [expr {$defaultValue ? " (default)" : ""}] .]
   125    129     }
   126    130   
   127    131     #
   128    132     # NOTE: Grab the culture instance based on the configured culture name.
   129    133     #
   130    134     set cultureInfo [object invoke -alias System.Globalization.CultureInfo \
   131    135         GetCultureInfo $culture]

Changes to Setup/verify.lst.

   417    417     Tests/tkt-2c630bffa7.eagle
   418    418     Tests/tkt-2ce0870fad.eagle
   419    419     Tests/tkt-343d392b51.eagle
   420    420     Tests/tkt-3567020edf.eagle
   421    421     Tests/tkt-393d954be0.eagle
   422    422     Tests/tkt-3aa50d8413.eagle
   423    423     Tests/tkt-448d663d11.eagle
          424  +  Tests/tkt-4a791e70ab.eagle
   424    425     Tests/tkt-544dba0a2f.eagle
   425    426     Tests/tkt-59edc1018b.eagle
   426    427     Tests/tkt-6434e23a0f.eagle
   427    428     Tests/tkt-6c6ecccc5f.eagle
   428    429     Tests/tkt-72905c9a77.eagle
   429    430     Tests/tkt-7e3fa93744.eagle
   430    431     Tests/tkt-84718e79fa.eagle