_xowiki__dict_to_xx (private)

 _xowiki__dict_to_xx

Defined in packages/xowiki/tcl/test/api-test-procs.tcl

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

        
        set _aa_export {}
        set body_count 1
        foreach testcase_body {{
        set dict {_name myname _type text label "Hello, world!" enabled 1}

        aa_equals "convert to spec"  [::xowiki::formfield::dict_to_spec $dict]  {myname:text,label=Hello__COMMA__ world!,enabled=1}
        aa_equals "convert to spec -aspair"  [::xowiki::formfield::dict_to_spec -aspair $dict]  {myname {text,label=Hello__COMMA__ world!,enabled=1}}

        #
        # Common idiom constructing form constraints
        #
        set fc ""; lappend fc  @categories:off @cr_fields:hidden  [::xowiki::formfield::dict_to_spec $dict]

        aa_equals "lappend + dict_to_spec fc idiom"  [concat $fc]  {@categories:off @cr_fields:hidden {myname:text,label=Hello__COMMA__ world!,enabled=1}}

        #
        # Common idiom to create component structure
        #

        set struct [subst {
            [list [::xowiki::formfield::dict_to_spec -aspair $dict]]
            {pattern {text,default=*,label=pool_question_pattern}}
        }]
        aa_equals "lappend + dict_to_spec component structure idiom"  [concat $struct]  {{myname {text,label=Hello__COMMA__ world!,enabled=1}}
            {pattern {text,default=*,label=pool_question_pattern}}}

        #
        # fc_to_dct
        #
        set fc ""; lappend fc  @categories:off @cr_fields:hidden  [::xowiki::formfield::dict_to_spec $dict]

        aa_equals "fc_to_dict (show results of reverse operation)"  [::xowiki::formfield::fc_to_dict $fc]  {myname {_name myname _type text label {Hello, world!} enabled 1 _definition {text,label=Hello__COMMA__ world!,enabled=1}}}

        #
        # dict_value
        #
        aa_equals "dict_value exists"  [::xowiki::formfield::dict_value $dict label]  {Hello, world!}
        aa_equals "dict_value not exists, no default"  [::xowiki::formfield::dict_value $dict title]  {}
        aa_equals "dict_value not exists, default"  [::xowiki::formfield::dict_value $dict title xxx]  {xxx}
    }} {
          aa_log "Running testcase body $body_count"
          set ::__aa_test_indent [info level]
          set catch_val [catch $testcase_body msg]
          if {$catch_val != 0 && $catch_val != 2} {
              aa_log_result "fail" "dict_to_xx (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo"
          }
          incr body_count
        }

XQL Not present:

Generic, PostgreSQL, Oracle