Index: Setup/deployAndTestCe.eagle ================================================================== --- Setup/deployAndTestCe.eagle +++ Setup/deployAndTestCe.eagle @@ -27,11 +27,11 @@ # NOTE: This procedure will output a diagnostic message, typically to the # standard output channel, using the [puts] command unless the global # variable "quiet" is non-zero. # proc qputs { args } { - if {!$::quiet} then { + if {![info exists ::quiet] || !$::quiet} then { eval puts $args; flush stdout } } # @@ -116,14 +116,18 @@ if {$argc > $index} then { set value [string trim [lindex $argv $index]] } if {[string length $value] > 0} then { - set $name $value + set $name $value; set defaultValue false } else { - set $name $default($name) + set $name $default($name); set defaultValue true } + + qputs stdout [appendArgs \ + "named parameter \"" $name "\" value is now \"" [set $name] \" \ + [expr {$defaultValue ? " (default)" : ""}] .] } # # NOTE: Grab the culture instance based on the configured culture name. # Index: Setup/verify.lst ================================================================== --- Setup/verify.lst +++ Setup/verify.lst @@ -419,10 +419,11 @@ Tests/tkt-343d392b51.eagle Tests/tkt-3567020edf.eagle Tests/tkt-393d954be0.eagle Tests/tkt-3aa50d8413.eagle Tests/tkt-448d663d11.eagle + Tests/tkt-4a791e70ab.eagle Tests/tkt-544dba0a2f.eagle Tests/tkt-59edc1018b.eagle Tests/tkt-6434e23a0f.eagle Tests/tkt-6c6ecccc5f.eagle Tests/tkt-72905c9a77.eagle