Index: tests/parameters.test =================================================================== diff -u -re3a84e351aaf79c02a63cc0741dde7b9bd550849 -r5039877970c5ab19bc80586e0d49bfd715873e98 --- tests/parameters.test (.../parameters.test) (revision e3a84e351aaf79c02a63cc0741dde7b9bd550849) +++ tests/parameters.test (.../parameters.test) (revision 5039877970c5ab19bc80586e0d49bfd715873e98) @@ -1441,7 +1441,7 @@ # test inner namespace and handling of switches # nsf::proc ::nsf::mix {-per-object:switch -x:boolean} { - return [namespace current]-${per-object}-[info exists x] + return [namespace current]-${per-object}-[expr {[info exists x] ? $x : "NULL"}] } # @@ -1469,8 +1469,12 @@ } Test parameter count 1 - ? {::nsf::mix} "::nsf-0-0" - ? {::nsf::mix -per-object} "::nsf-1-0" + ? {::nsf::mix} "::nsf-0-NULL" + ? {::nsf::mix -per-object} "::nsf-1-NULL" + ? {::nsf::mix -x true} "::nsf-0-true" + ? {::nsf::mix -x false} "::nsf-0-false" + ? {::nsf::mix -per-object=1} "::nsf-1-NULL" + ? {::nsf::mix -per-object=0} "::nsf-0-NULL" ? {ad_returnredirect /url} "::-allow_complete_url_p html_p message target_url x-0-0" ? {ad_returnredirect -html /url} "::-allow_complete_url_p html_p message target_url x-1-0" ? {ad_returnredirect -html=0 /url} "::-allow_complete_url_p html_p message target_url x-0-0"