_xowiki__xowiki_test_cases (private)

 _xowiki__xowiki_test_cases

Defined in packages/xowiki/tcl/test/xowiki-admin-tests-procs.tcl

Partial Call Graph (max 5 caller/called nodes):
%3 _ _ (public) aa_equals aa_equals (public) aa_log aa_log (public) aa_log_result aa_log_result (public) aa_section aa_section (public) _xowiki__xowiki_test_cases _xowiki__xowiki_test_cases _xowiki__xowiki_test_cases->_ _xowiki__xowiki_test_cases->aa_equals _xowiki__xowiki_test_cases->aa_log _xowiki__xowiki_test_cases->aa_log_result _xowiki__xowiki_test_cases->aa_section

Testcases:
No testcase defined.
Source code:
        
        set _aa_export {}
        set body_count 1
        foreach testcase_body {{
        #
        # Later on in the test we will loop through ::xowiki::Page
        # instances to perform some checks. Make sure we do not have
        # leftover pollution from previous tests.
        #
        foreach p [::xowiki::Page info instances] {
           $p destroy
        }

        Object test
        test set passed 0
        test set failed 0
        test proc section msg {
            :reset
            aa_log <h2>$msg</h2>
        }
        test proc subsection msg {
            aa_log <h3>$msg</h3>
        }
        test proc subsubsection msg {
            aa_section <h4>$msg</h4>
        }
        test proc code msg {
            aa_log "<pre>$msg</pre>"
        }
        test proc hint msg {
            aa_log $msg
        }
        test proc reset {} {
            array unset ::xotcl_cleanup
            array unset ::af_parts
            array unset ::af_key_name
        }
        test proc without_ns_form {cmd} {
            rename ::ns_queryget ::ns_queryget.orig
            rename ::ns_querygetall ::ns_querygetall.orig
            rename ::ad_returnredirect ::ad_returnredirect.orig
            try {
                proc ::ns_queryget key {
                    #ns_log notice "queryget $key => [::xo::cc form_parameter $key {}]";
                    ::xo::cc form_parameter $key ""
                }
                proc ::ns_querygetall key {
                    #ns_log notice "querygetall $key => [list [::xo::cc form_parameter $key {}]]"
                    list [::xo::cc form_parameter $key {}]
                }
                proc ::ad_returnredirect url {
                    #ns_log notice "ad_returnredirect $url"
                    ::xo::cc returnredirect $url
                }

                try {
                    set r [uplevel $cmd]
                } on error {errmsg} {
                    test code "error in command: $errmsg [info exists r]"
                    set r ""
                }
            } finally {
                rename ::ns_queryget ""
                rename ::ns_queryget.orig ::ns_queryget
                rename ::ns_querygetall ""
                rename ::ns_querygetall.orig ::ns_querygetall
                rename ::ad_returnredirect ""
                rename ::ad_returnredirect.orig ::ad_returnredirect
            }
            return $r
        }

        proc ? {
            cmd
            expected
            {msg ""}
        } {
           set r [uplevel $cmd]
           if {$msg eq ""} {
               set msg $cmd
           }
           aa_equals  "$msg returned \n&nbsp;&nbsp;&nbsp;'$r' ne \n&nbsp;&nbsp;&nbsp;'$expected'"  $r $expected
       }

        proc label {intro case ref} {return "$intro '$ref' -- $case"}

        set instance_name XOWIKI-TEST
        set index_vuh_parms {
            {-m view}
            {-folder_id:integer 0}
        }
        ::xo::Timestamp t1

        test section "Basic Setup"

        test hint "Using XOTcl $::xotcl::version$::xotcl::patchlevel"
        ? {expr {$::xotcl::version < 1.5}} 0 "XOTcl Version $::xotcl::version >= 1.5"

        #set ns_cache_version_old [catch {ns_cache names xowiki_cache xxx}]
        #if {$ns_cache_version_old} {
        #  ? {set x old} new "upgrade ns_cache: cvs -z3 -d:pserver:anonymous@aolserver.cvs.sourceforge.net:/cvsroot/aolserver co nscache"
        #} else {
        #  ? {set x new} new "ns_cache version seems up to date"
        #}

        set tdom_version [package require tdom]
        if {$tdom_version < "0.8.0"} {
            ? {set x old} new "xowiki requires at least tDOM 0.8.0 (released Aug 2004),  the installed tDOM version is to old ($tdom_version).<br>&nbsp;&nbsp;&nbsp; Please Upgrade tDOM from: <code>cvs -z3 -d:pserver:anonymous@cvs.tdom.org:/usr/local/pubcvs co tdom</code><br>"
        } else {
            ? {set x new} new "tdom version $tdom_version is ok"
        }
        ########################################################################
        test section "Create New Package Instance of XoWiki"
        #
        # create a fresh instance for testing
        #
        if {[site_node::exists_p -url /$instance_name]} {
            test hint "we have an existing instance named  /$instance_name, we delete it..."
            # we have already an instance, get rid of it
            set info [site_node::get_from_url -url /$instance_name -exact]
            # is the instance mounted?
            if {[dict get $info package_id] ne ""} {
                site_node::unmount -node_id [dict get $info node_id]
            }
            site_node::delete -node_id [dict get $info node_id] -delete_package
        }

        ? {site_node::exists_p -url /$instance_name} 0  "the test instance does not exist"

        #set root_id [site_node::get_root_node_id]
        set root_id [xo::dc get_value "" {select node_id from site_nodes where parent_id is null}]

        if {[xo::dc 0or1row check_broken_site_nodes {
            select node_id, name from site_nodes where name = :instance_name and parent_id = :root_id
        }]} {
            test hint "... site nodes seem broken, since we have an entry, but site_node::exists_p returns false"
            test hint "... try to fix anyhow"
            xo::dc dml fix_broken_entry {
                delete from site_nodes where name = :instance_name and parent_id = :root_id
            }
        }

        # create a fresh instance
        array set node [site_node::get -url /]
        #test code [array get node]

        site_node::instantiate_and_mount  -parent_node_id $node(node_id)  -node_name $instance_name  -package_name $instance_name  -package_key xowiki

        ? {site_node::exists_p -url /$instance_name} 1  "created test instance /$instance_name"
        set info [site_node::get_from_url -url /$instance_name -exact]
        #test code [array get info]

        ? {expr {[dict get $info package_id] ne ""}} 1 "package is mounted, package_id provided: [dict get $info package_id]"

        #############################################################
        test subsection "Basic Setup: Package, url= /$instance_name/"
        #############################################################

        ::xowiki::Package initialize -parameter $index_vuh_parms  -package_id [dict get $info package_id]  -url /$instance_name/  -actual_query ""  -user_id 0

        ? {info exists package_id} 1 "package_id is exported"
        ? {set package_id} [dict get $info package_id] "package_id right value"
        ? {nsf::is object ::$package_id} 1 "we have a package_id object"
        ? {$package_id package_url} /$instance_name/ "package_url"
        ? {$package_id url} /$instance_name/
        ? {$package_id id} $package_id "the id of the package object = package_id"

        test code [::$package_id serialize]

        ############################################
        test subsection "Basic Setup: Folder Object"
        ############################################

        ? {$package_id exists folder_id} 1 "folder_id is set"
        set folder_id [::$package_id folder_id]
        ? {nsf::is object ::$folder_id} 1 "we have a folder object"
        ? {::$folder_id name} "xowiki: $package_id" "name of folder object is 'xowiki: $package_id'"
        ? {::$folder_id parent_id} -100  "parent_id of folder object is -100"
        ? {expr {[::$folder_id item_id]>0}} 1 "item_id given"
        ? {expr {[::$folder_id revision_id]>0}} 1 "revision_id given"
        ? {xo::dc get_value count "select count(*) from cr_items where parent_id = $folder_id"} 0  "folder contains no objects"

        ##############################################
        test subsection "Create and Render Index Page"
        ##############################################
        ? {$package_id set object} "" "object name parsed"
        ? {set m} view "method passed from package initialize"
        set object [::$package_id set object]
        set page_item_id [::$package_id resolve_page $object $m]
        ? {expr {$page_item_id ne ""}} 1 "index page resolved"
        ? {nsf::is object ::$page_item_id} 1 "we have a page object"
        ? {expr {[::$page_item_id item_id]>0}} 1 "item_id given"
        ? {expr {[::$page_item_id revision_id]>0}} 1 "revision_id given"
        ? {::$page_item_id parent_id} $folder_id "parent_id of page object is folder_id"
        ? {::$page_item_id package_id} $package_id "package_id of page object"
        ? {::$page_item_id name} en:index "name of resolved index page"
        ? {::$page_item_id istype ::xowiki::Page} 1 "type or subtype of ::xowiki::Page"

        set content [::$package_id call $page_item_id $m ""]
        set content_length [string length $content]
        ? {expr {$content_length > 1000}} 1  "page rendered, content-length $content_length > 1000"
        ? {string first Error $content} -1 "page contains no error"
        ? {xo::dc get_value count "select count(*) from cr_items where parent_id = $folder_id"} 1  "folder contains the index page"
        #test code [::$page_item_id serialize]

        ###########################################################
        test subsection "Check Permissions based on default policy"
        ###########################################################
        ? {::xo::cc user_id} 0 "user_id is guest"
        ? {::$package_id make_link ::$page_item_id delete return_url} ""  "the public cannot delete this page"
        ? {::$package_id make_link -privilege admin -link admin/ $package_id {} {}} ""  "the public cannot admin this package"

        ########################################################################
        #
        # run a new query, use en/index explicitly
        #
        ##################################################
        test section "New Query: /$instance_name/en/index"
        ##################################################

        ::xowiki::Package initialize -parameter $index_vuh_parms  -package_id [dict get $info package_id]  -url /$instance_name/en/index  -actual_query ""  -user_id 0

        ? {info exists package_id} 1 "package_id is exported"
        ? {set package_id} [dict get $info package_id] "package_id right value"
        ? {nsf::is object ::$package_id} 1 "we have a package_id object"
        ? {$package_id package_url} /$instance_name/ "package_url"
        ? {$package_id url} /$instance_name/en/index "url"
        ? {$package_id id} $package_id "the id of the package object = package_id"
        set object [::$package_id set object]
        set page_item_id [::$package_id resolve_page $object $m]
        set folder_id [::$package_id folder_id]
        ? {::$page_item_id parent_id} $folder_id "parent_id of page object is folder_id"
        ? {::$page_item_id package_id} $package_id "package_id of page object"
        ? {::$page_item_id name} en:index "name of resolved index page"

        ########################################################################
        #
        # run a new query
        #
        ##########################################
        test section "New Query: /$instance_name/"
        ##########################################

        ::xowiki::Package initialize -parameter $index_vuh_parms  -package_id [dict get $info package_id]  -url /$instance_name/  -actual_query ""  -user_id 0

        ? {info exists package_id} 1 "package_id is exported"
        ? {set package_id} [dict get $info package_id] "package_id right value"
        ? {nsf::is object ::$package_id} 1 "we have a package_id object"
        ? {$package_id package_url} /$instance_name/ "package_url"
        ? {$package_id url} /$instance_name/ "url"
        ? {$package_id id} $package_id "the id of the package object = package_id"

        ##################################################
        test subsection "Basic Setup: Folder Object (2nd)"
        ##################################################
        ? {$package_id exists folder_id} 1 "folder_id is set"
        set folder_id [::$package_id folder_id]
        ? {nsf::is object ::$folder_id} 1 "we have a folder object"
        ? {::$folder_id name} "xowiki: $package_id" "name of folder object is 'xowiki: $package_id'"
        ? {::$folder_id parent_id} -100  "parent_id of folder object is -100"
        ? {expr {[::$folder_id item_id]>0}} 1 "item_id given"
        ? {expr {[::$folder_id revision_id]>0}} 1 "revision_id given"
        ? {xo::dc get_value count "select count(*) from cr_items where parent_id = $folder_id"} 1  "folder contains the index"

        #########################################
        test subsection "Render Index Page (2nd)"
        #########################################
        ? {$package_id set object} "" "object name parsed"
        ? {set m} view "method passed from package initialize"
        set object [::$package_id set object]
        set page_item_id [::$package_id resolve_page $object $m]
        ? {expr {$page_item_id ne ""}} 1 "index page resolved"
        ? {nsf::is object ::$page_item_id} 1 "we have a page object"
        ? {expr {[::$page_item_id item_id]>0}} 1 "item_id given"
        ? {expr {[::$page_item_id revision_id]>0}} 1 "revision_id given"
        ? {::$page_item_id parent_id} $folder_id "parent_id of page object is folder_id"
        ? {::$page_item_id package_id} $package_id "package_id of page object"
        ? {::$page_item_id name} en:index "name of resolved index page"
        ? {::$page_item_id istype ::xowiki::Page} 1 "type or subtype of ::xowiki::Page"

        set content [::$package_id call $page_item_id $m ""]
        set content_length [string length $content]
        ? {expr {$content_length > 1000}} 1  "page rendered, content-length $content_length > 1000"
        ? {string first Error $content} -1 "page contains no error"
        #test code [::$page_item_id serialize]

        ########################################################################
        #
        # run a new query
        #
        ################################################
        test section "New Query: /$instance_name/weblog"
        ################################################

        ::xowiki::Package initialize -parameter $index_vuh_parms  -package_id [dict get $info package_id]  -url /$instance_name/weblog  -actual_query ""  -user_id 0

        ? {$package_id package_url} /$instance_name/ "package_url"
        ? {$package_id url} /$instance_name/weblog "url"
        ? {$package_id id} $package_id "the id of the package object = package_id"
        set folder_id [::$package_id folder_id]

        ##########################################
        test subsection "Create and Render Weblog"
        ##########################################
        set content [::$package_id invoke -method $m]
        set content_length [string length $content]
        ? {expr {$content_length > 1000}} 1  "page rendered, content-length $content_length > 1000"
        ? {string first Error $content} -1 "page contains no error"
        #test hint $content

        ? {xo::dc get_value count "select count(*) from cr_items where parent_id = $folder_id"} 3  "folder contains: index and weblog page (+1 includelet)"

        ::xo::at_cleanup


        ########################################################################
        #
        ###################################################
        test section "New Query: /$instance_name/en/weblog"
        ###################################################
        ::xowiki::Package initialize -parameter $index_vuh_parms  -package_id [dict get $info package_id]  -url /$instance_name/en/weblog  -actual_query ""  -user_id 0

        set content [::$package_id invoke -method $m]
        set content_length [string length $content]
        ? {expr {$content_length > 1000}} 1  "page rendered, content-length $content_length > 1000"
        ? {string first Error $content} -1 "page contains no error"
        ? {string first file:image $content} -1 "page contains no error"
        ? {expr {[string first "Index Page" $content] == -1}} 0  "weblog contains Index Page"

        set full_weblog_content_length $content_length

        ::xo::at_cleanup

        ##################################################################
        test section "New Query: /$instance_name/en/weblog with summary=1"
        ##################################################################

        ::xowiki::Package initialize -parameter $index_vuh_parms  -package_id [dict get $info package_id]  -url /$instance_name/en/weblog  -actual_query "summary=1"  -user_id 0

        set content [::$package_id invoke -method $m]
        set content_length [string length $content]
        ? {expr {$content_length > 1000}} 1  "page rendered, content-length $content_length > 1000"
        ? {string first Error $content} -1 "page contains no error"
        ? {expr {$full_weblog_content_length > $content_length}} 1  "summary ($content_length) is shorter than full weblog $full_weblog_content_length"

        #test hint $content
        ::xo::at_cleanup
        #return

        #####################################################
        test section "Testing as SWA: query /$instance_name/"
        #####################################################

        set swas [xo::dc list get_swa "select grantee_id from acs_permissions  where object_id = -4 and privilege = 'admin'"]

        ::xowiki::Package initialize -parameter $index_vuh_parms  -package_id [dict get $info package_id]  -url /$instance_name/  -actual_query ""  -user_id [lindex $swas 0]

        set content [::$package_id invoke -method $m]
        ? {string first Error $content} -1 "page contains no error"

        ###########################################################
        test subsection "Check Permissions based on default policy"
        ###########################################################
        ? {expr {[::xo::cc user_id] != 0}} 1 "user_id [lindex $swas 0] is not guest"
        ? {expr {[::$package_id make_link ::$page_item_id delete return_url] ne ""}} 1  "SWA sees the delete link"
        ? {expr {[::$package_id make_link -privilege admin -link admin/ $package_id {} {}] ne ""}} 1  "SWA sees admin link"
        ? {xo::dc get_value count "select count(*) from cr_items where parent_id=[::$package_id folder_id]"} 3  "folder contains: index and weblog page (+1 includelet)"
        ::xo::at_cleanup

        ################################################
        test section "Delete weblog-portlet via weblink"
        ################################################

        ::xowiki::Package initialize -parameter $index_vuh_parms  -package_id [dict get $info package_id]  -url /$instance_name/en/weblog-portlet  -actual_query "m=delete"  -user_id [lindex $swas 0]

        set content [::$package_id invoke -method $m]
        ? {string first Error $content} -1 "page contains no error"
        ? {::xo::cc exists __continuation} 1 "continuation exists"
        ? {::xo::cc set  __continuation} "ad_returnredirect /$instance_name/"  "redirect to main instance"
        ? {xo::dc get_value count "select count(*) from cr_items where parent_id=[::$package_id folder_id]"} 2  "folder contains: index and weblog page (+0 includelet)"

        ############################################################################
        test subsection "Create a test page named hello with package_id $package_id"
        ############################################################################
        set page [::xowiki::Page new  -title "Hello World"  -name en:hello  -package_id $package_id  -parent_id [::$package_id folder_id]  -destroy_on_cleanup  -text {
                          Hello [[Wiki]] World.
                      }]
        $page set_content [string trim [$page text] " \n"]
        $page initialize_loaded_object
        $page save_new
        ? {$page set package_id} $package_id "package_id $package_id not modified"
        ? {xo::dc get_value count "select count(*) from cr_items where parent_id=[::$package_id folder_id]"} 3  "folder contains: index and weblog, hello page (+0 includelet)"
        ? {expr {[$page revision_id]>0}} 1 "revision_id given"
        ? {expr {[$page item_id]>0}} 1 "item_id given"
        set revision_id1 [$page revision_id]
        set item_id1 [$page item_id]

        $page append title "- V.2"
        $page save
        ? {xo::dc get_value count "select count(*) from cr_items where parent_id=[::$package_id folder_id]"} 3  "still 3 pages"
        ? {expr {[$page revision_id]>$revision_id1}} 1 "revision_id > old revision_id"
        ? {expr {[$page item_id] == $item_id1}} 1 "item id the same"

        ::xo::at_cleanup



        ######################################
        test section "Recreate weblog-portlet"
        ######################################

        ::xowiki::Package initialize -parameter $index_vuh_parms  -package_id [dict get $info package_id]  -url /$instance_name/en/weblog  -actual_query "summary=1"  -user_id 0

        set content [::$package_id invoke -method $m]
        set content_length [string length $content]
        ? {expr {$content_length > 1000}} 1  "page rendered, content-length $content_length > 1000"
        ? {string first Error $content} -1 "page contains no error"
        ? {xo::dc get_value count "select count(*) from cr_items where parent_id=[::$package_id folder_id]"} 4  "again, 4 pages"

        ::xo::at_cleanup

        #########################################################
        test section "Query revisions for hello page via weblink"
        #########################################################

        ::xowiki::Package initialize -parameter $index_vuh_parms  -package_id [dict get $info package_id]  -url /$instance_name/en/hello  -actual_query "m=revisions"  -user_id [lindex $swas 0]

        set content [::$package_id invoke -method $m]
        ? {string first Error $content} -1 "page contains no error"
        ? {expr {[string first 2: $content]>-1}} 1 "page contains two revisions"

        ::xo::at_cleanup


        ##########################################
        test section "Edit hello page via weblink"
        ##########################################

        ::xowiki::Package initialize -parameter $index_vuh_parms  -package_id [dict get $info package_id]  -url /$instance_name/en/hello  -actual_query "m=edit"  -user_id [lindex $swas 0]

        set content [::$package_id invoke -method $m]
        ? {string first Error $content} -1 "page contains no error"
        ? {expr {[string first "- V.2" $content] > -1}} 1  "form page contains the modified title"

        set returned_item_id 0
        set r [regexp {name="item_id"\s+value="([^\"]+)"} $content _ returned_item_id]
        #? {info exists returned_item_id} 1 "item_id contained in form"
        #ns_log notice "====================================================\n$content\n======================"
        ? {expr {$returned_item_id > 0}} 1 "item_id $returned_item_id > 0 (regexp $r)"
        ? {$package_id isobject $returned_item_id} 1 "item is instantiated"

        set returned_folder_id 0
        set r [regexp {name="folder_id"\s+value="([^\"]+)"} $content _ returned_folder_id]
        #? {info exists returned_folder_id} 1 "folder_id contained in form"
        ? {expr {$returned_folder_id > 0}} 1 "returned folder id $returned_folder_id >0 (regexp $r)"

        regexp {name="__key_signature" value="([^\"]+)"} $content _ signature
        ? {info exists signature} 1 "signature contained in form"
        ? {expr {$signature ne ""}} 1 "signature not empty"

        set title [::$returned_item_id title]
        set text [lindex [::$returned_item_id text] 0]

        ? {set title} {Hello World- V.2}
        ? {set text}  {Hello [[Wiki]] World.}

        ::xo::at_cleanup

        ###################################################
        test section "Submit edited hello page via weblink"
        ###################################################

        ::xowiki::Package initialize -parameter $index_vuh_parms  -package_id [dict get $info package_id]  -url /$instance_name/en/hello  -actual_query "m=edit"  -user_id [lindex $swas 0]  -form_parameter [subst {
                form:id f1
                form:mode edit
                formbutton:ok {       OK       }
                __refreshing_p 0
                __confirmed_p 0
                __new_p 0
                __key_signature {$signature}
                __object_name [::security::parameter::signed en:hello]
                name en:hello
                object_type ::xowiki::Page
                text.format text/html
                creator {{Gustaf Neumann}}
                description {{this is the description}}
                text {{$text ... just testing ..<br />}}
                nls_language en_US
                folder_id $returned_folder_id
                title {{$title - saved}}
                item_id $returned_item_id }]

        #ns_log notice "========================= without_ns_form START '$m'"
        set content [test without_ns_form {::$package_id invoke -method $m}]
        #ns_log notice "========================= without_ns_form END"

        #aa_log "<pre>[ns_quotehtml $content]</pre>"
        #ns_log notice "$content"
        ? {string first Error $content} -1 "page contains no error"
        aa_log "<pre>[ns_quotehtml [::xo::cc serialize]]</pre>"

        #? {::xo::cc exists __continuation} 1 "continuation exists"
        #? {::xo::cc set  __continuation} "ad_returnredirect /$instance_name/hello"  #    "redirect to hello page"

        #::xo::at_cleanup

        # #########################################################
        # test section "Query revisions for hello page via weblink"
        # #########################################################

        # ::xowiki::Package initialize -parameter $index_vuh_parms  #     -package_id [dict get $info package_id]  #     -url /$instance_name/en/hello  #     -actual_query "m=revisions"  #     -user_id [lindex $swas 0]

        # set content [::$package_id invoke -method $m]

        # set p [::xowiki::Page info instances]

        # ? {llength $p} 1 "expect only one page instance"

        # if {[llength $p] == 1} {
        #     ? {$p set title} {Hello World- V.2 - saved} "saved title is ok"
        #     ? {lindex [$p set text] 0} {Hello [[Wiki]] World. ... just testing ..<br />} "saved text is ok"
        # } else {
        #     test code [::xowiki::Page info instances]
        #     foreach p [::xowiki::Page info instances] {test code "$p [$p serialize]"}
        # }

        # ? {string first Error $content} -1 "page contains no error"
        # ? {expr {[string first 3: $content]>-1}} 1 "page contains three revisions"

        # keep the page for the following test
        #::xo::at_cleanup

        ##########################
        test section "Small tests"
        ##########################

        ###############################
        test subsection "Link resolver"
        ###############################
        set p [::xowiki::Page info instances]
        ? {llength $p} 1 "expect only one page instance"

        proc xowiki-test-links {p tests} {
            foreach {link result external} $tests {
                set l [$p create_link $link]
                switch [$l info class] {
                    ::xowiki::Link         { ? {expr {[$l resolve] > 0}} $result "Can resolve link $link" }
                    ::xowiki::ExternalLink { ? {expr {$external == 1}} $result "found external link" }
                }
                $l destroy
            }
        }

        ##################################################
        test subsubsection "Testing links on English page"
        ##################################################
        xowiki-test-links $p {
            hello 1 0
            en:hello 1 0
            de:hello 0 0
            xxx 0 0
            //XOWIKI-TEST/hello 1 0
            //XOWIKI-TEST/en:hello 1 0
            //XOWIKI-TEST/de:hello 0 0
            //XOWIKI-TEST/en/hello 0 0
            //forums 1 1
            //XOWIKI-TEST/weblog?m=create-new&p.exercise_form=en:l1 1 0
            //XOWIKI-TEST/en:weblog?m=create-new&p.exercise_form=en:l1 1 0
        }

        # make page a german page
        $p nls_language de_DE
        #################################################
        test subsubsection "Testing links on German page"
        #################################################
        xowiki-test-links $p {
            hello 1 0
            en:hello 1 0
            de:hello 0 0
            xxx 0 0
            //XOWIKI-TEST/hello 1 0
            //XOWIKI-TEST/en:hello 1 0
            //XOWIKI-TEST/de:hello 0 0
            //XOWIKI-TEST/en/hello 0 0
            //forums 1 1
            //XOWIKI-TEST/weblog?m=create-new&p.exercise_form=en:l1 1 0
            //XOWIKI-TEST/en:weblog?m=create-new&p.exercise_form=en:l1 1 0
        }


        ####################################
        test subsection "Filter expressions"
        ####################################

        ? {::xowiki::FormPage filter_expression  "_state=created|accepted|approved|tested|developed|deployed&&_assignee=123" &&}  {tcl {[lsearch -exact {created accepted approved tested developed deployed} [:property _state]] > -1&&[:property _assignee] eq {123}} h {} vars {} sql {{state in ('created','accepted','approved','tested','developed','deployed')} {assignee = '123'}}} filter_expr_where_1

        ? {::xowiki::FormPage filter_expression  "_assignee<=123 && y>=123" &&}  {tcl {[:property _assignee] <= {123}&&([dict get $__ia y] >= {123})} h {} vars {y {}} sql {{assignee <= '123'}}}  filter_expr_where_2

        ? {::xowiki::FormPage filter_expression  "betreuer contains en:person1" &&}  {tcl {({en:person1} in [dict get $__ia betreuer])} h {} vars {betreuer {}} sql {{instance_attributes like '%en:person1%'}}}  filter_expr_where_3

        ? {::xowiki::FormPage filter_expression  "_state=closed" ||}  {tcl {[:property _state] eq {closed}} h {} vars {} sql {{state = 'closed'}}}  filter_expr_unless_1

        ? {::xowiki::FormPage filter_expression  "_state= closed|accepted || x = 1" ||}  {tcl {[lsearch -exact {closed accepted} [:property _state]] > -1||([dict get $__ia x] eq {1})} h x=>1 vars {x {}} sql {{state in ('closed','accepted')}}}  filter_expr_unless_1



        ########################
        test section "Item refs"
        ########################
        #
        # Testing item refs and wiki links (between [[ .... ]])
        #
        # Still missing:
        #    - test reverse mappings from URLs generated from item-refs back to item_ids
        #    - syntax Person:de:p1 (if de:p1 does not exist, create an instance of Person name de:p1)
        #    - typed links (glossary app)... important?
        #    - interaction between PackagePath and folders (would be nice to inherit from folders, not packages)
        #
        # Save this file in openacs-4/www/item-ref-test.tcl and run it via
        # http://..../item-ref-test
        #
        #


        #some test cases
        ::xowiki::Package initialize -url /$instance_name/

        set expected_locale ""
        foreach nls_language [lang::system::get_locales] {
            if {[string range $nls_language 0 1] eq "de"} {
                set expected_locale $nls_language
            }
        }

        # We use destroy_on_cleanup here although the object is explicitly
        # destroyed later. However, if some test bails out with an error,
        # the destroy might not be reached
        ::xowiki::Page create p  -package_id $package_id -nls_language de_DE -parent_id [::$package_id folder_id]  -name p -destroy_on_cleanup

        p set unresolved_references 0

        test subsection "Ingredients:"
        set folder_id [::$package_id folder_id]
        test hint "folder_id => $folder_id"

        set folder_id [::$package_id folder_id]

        # make sure, we have folder "f1" with subfolder "f3" with subfolder "subf3"
        set f1_id          [xowiki::test::require_folder "f1"          $folder_id $package_id]
        set f3_id          [xowiki::test::require_folder "f3"          $f1_id $package_id]
        set subf3_id       [xowiki::test::require_folder "subf3"       $f3_id $package_id]

        # make sure, we have the test pages
        set parentpage_id  [xowiki::test::require_page   de:parentpage $folder_id $package_id]
        set enpage_id      [xowiki::test::require_page   en:page       $folder_id $package_id]
        set testpage_id    [xowiki::test::require_page   de:testpage   $f1_id $package_id]
        set f3page_id      [xowiki::test::require_page   en:page       $f3_id $package_id]

        set childfolder_id [xowiki::test::require_folder "childfolder" $parentpage_id $package_id]
        set childpage_id   [xowiki::test::require_page "de:childpage"  $parentpage_id $package_id]

        set base64 "iVBORw0KGgoAAAANSUhEUgAAAAEAAAABCAIAAACQd1PeAAAAAXNSR0IArs4c6QAAAAxJREFUCNdj\n+P//PwAF/gL+3MxZ5wAAAABJRU5ErkJggg=="
        set image_id       [xowiki::test::require_page file:image.png  $folder_id $package_id $base64]
        set subimage_id    [xowiki::test::require_page file:image2.png $f1_id $package_id $base64]
        set childimage_id  [xowiki::test::require_page file:image3.png $parentpage_id $package_id $base64]

        ::xo::db::CrClass get_instance_from_db -item_id $parentpage_id
        ::xo::db::CrClass get_instance_from_db -item_id $f1_id
        ::xo::db::CrClass get_instance_from_db -item_id $testpage_id
        ::xo::db::CrClass get_instance_from_db -item_id $f3_id
        ::xo::db::CrClass get_instance_from_db -item_id $subimage_id

        set parentpage_ref [$package_id external_name -parent_id $folder_id [$parentpage_id name]]
        set f1_ref         [$package_id external_name -parent_id $folder_id [$f1_id name]]
        set testpage_ref   [$package_id external_name -parent_id $folder_id [$testpage_id name]]
        set f3_ref         [$package_id external_name -parent_id $f1_id [$f3_id name]]
        set subimage_ref   [$package_id external_name -parent_id $folder_id [$subimage_id name]]

        set pagelink_id      [xowiki::test::require_link link1 $folder_id $package_id $parentpage_ref]
        set folderlink_id    [xowiki::test::require_link link2 $folder_id $package_id $f1_ref]
        set subpagelink_id   [xowiki::test::require_link link3 $folder_id $package_id $testpage_ref]
        set subfolderlink_id [xowiki::test::require_link link4 $folder_id $package_id $f3_ref]
        set subimagelink_id  [xowiki::test::require_link link5 $folder_id $package_id $subimage_ref]
        ################################

        #################################
        test subsection "Toplevel Tests:"
        #################################

        set l "folder:f1"
        set test [label "item_ref" "existing topfolder" $l]
        array set "" [p item_ref -default_lang en -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "" && $(stripped_name) eq "f1"
                 && $(form) eq "en:folder.form"
                 && $(parent_id) eq $folder_id && $(item_id) == $f1_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "de:parentpage"
        set test [label "item_ref" "existing page in root_folder" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "de" && $(stripped_name) eq "parentpage"
                 && $(parent_id) eq $folder_id && $(item_id) == $parentpage_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "f1/"
        set test [label "item_ref" "existing topfolder short" $l]
        array set "" [p item_ref -default_lang en -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "" && $(stripped_name) eq "f1"
                 && $(parent_id) eq $folder_id && $(item_id) == $f1_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "f1";# this works, since "f1" exists
        set test [label "item_ref" "existing topfolder short + lookup" $l]
        array set "" [p item_ref -default_lang en -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "" && $(stripped_name) eq "f1"
                 && $(parent_id) eq $folder_id && $(item_id) == $f1_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "page1";#  last item per default page
        set test [label "item_ref" "not existing page short" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "de" && $(stripped_name) eq "page1"
                 && $(parent_id) eq $folder_id && $(item_id) == 0}} 1 "\n$test:\n  [array get {}]\n "

        set l "parentpage"
        set test [label "item_ref" "existing page short (without language prefix)" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "de" && $(stripped_name) eq "parentpage"
                 && $(parent_id) eq $folder_id && $(item_id) == $parentpage_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "image:img1"
        set test [label "item_ref" "not existing image" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "image" && $(prefix) eq "file" && $(stripped_name) eq "img1"
                 && $(parent_id) eq $folder_id && $(item_id) == 0}} 1 "\n$test:\n  [array get {}]\n "

        set l "image:image.png"
        set test [label "item_ref" "existing image" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "image" && $(prefix) eq "file" && $(stripped_name) eq "image.png"
                 && $(parent_id) eq $folder_id && $(item_id) == $image_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "file:file1"
        set test [label "item_ref" "not existing file" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "file" && $(prefix) eq "file" && $(stripped_name) eq "file1"
                 && $(parent_id) eq $folder_id && $(item_id) == 0}} 1 "\n$test:\n  [array get {}]\n "

        set l "file:image.png"
        set test [label "item_ref" "existing file" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "file" && $(prefix) eq "file" && $(stripped_name) eq "image.png"
                 && $(parent_id) eq $folder_id && $(item_id) == $image_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "image.png"
        set test [label "item_ref" "existing image short" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "image" && $(prefix) eq "file" && $(stripped_name) eq "image.png"
                 && $(parent_id) eq $folder_id && $(item_id) == $image_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "image1.png"
        set test [label "item_ref" "not existing image short" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "image" && $(prefix) eq "file" && $(stripped_name) eq "image1.png"
                 && $(parent_id) eq $folder_id && $(item_id) == 0}} 1 "\n$test:\n  [array get {}]\n "

        set l "flashfile.swf"
        set test [label "item_ref" "not existing flash file short" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "swf" && $(prefix) eq "file" && $(stripped_name) eq "flashfile.swf"
                 && $(parent_id) eq $folder_id && $(item_id) == 0}} 1 "\n$test:\n  [array get {}]\n "

        ################################
        test subsection "Absolute to top-level:"

        set l "/f1"
        set test [label "item_ref" "absolute existing topfolder short" $l]
        array set "" [p item_ref -default_lang en -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "" && $(stripped_name) eq "f1"
                 && $(parent_id) eq $folder_id && $(item_id) == $f1_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "/f1/"
        set test [label "item_ref" "absolute existing topfolder short slash" $l]
        array set "" [p item_ref -default_lang en -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "" && $(stripped_name) eq "f1"
                 && $(parent_id) eq $folder_id && $(item_id) == $f1_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "/" ;# stripped name will be the name of the root folder
        set test [label "item_ref" "just slash" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "folder" && $(prefix) eq ""
                 && $(parent_id) == -100 && $(item_id) == $folder_id}} 1 "\n$test:\n  [array get {}]\n "


        ################################
        test subsection "Relative to current folder:"

        set l "./parentpage"
        set test [label "item_ref" "existing page short (without prefixuage prefix), relative" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "de" && $(stripped_name) eq "parentpage"
                 && $(parent_id) eq $folder_id && $(item_id) == $parentpage_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "./de:parentpage"
        set test [label "item_ref" "existing page in root_folder, relative" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "de" && $(stripped_name) eq "parentpage"
                 && $(parent_id) eq $folder_id && $(item_id) == $parentpage_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "./f1/"
        set test [label "item_ref" "existing topfolder short, relative" $l]
        array set "" [p item_ref -default_lang en -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "" && $(stripped_name) eq "f1"
                 && $(parent_id) eq $folder_id && $(item_id) == $f1_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "./f1";# this works, since "f1" exists
        set test [label "item_ref" "existing topfolder short + lookup, relative" $l]
        array set "" [p item_ref -default_lang en -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "" && $(stripped_name) eq "f1"
                 && $(parent_id) eq $folder_id && $(item_id) == $f1_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "./page1";#  last item per default page
        set test [label "item_ref" "not existing page short, relative" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "de" && $(stripped_name) eq "page1"
                 && $(parent_id) eq $folder_id && $(item_id) == 0}} 1 "\n$test:\n  [array get {}]\n "

        set l "./parentpage/"
        set test [label "item_ref" "not existing folder (with same name of existing page) in root_folder, relative" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "" && $(stripped_name) eq "parentpage"
                 && $(parent_id) eq $folder_id && $(item_id) == 0}} 1 "\n$test:\n  [array get {}]\n "

        set l "./" ;# stripped name will be the name of the root folder
        set test [label "item_ref" "dot with slash, relative" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "folder" && $(prefix) eq ""
                 && $(parent_id) == -100 && $(item_id) == $folder_id}} 1 "\n$test:\n  [array get {}]\n "

        ##################################
        test subsection "Ending with dot:"
        ##################################

        set l "." ;# stripped name will be the name of the root folder, omit from test
        set test [label "item_ref" "dot with slash, relative" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "folder" && $(prefix) eq ""
                 && $(parent_id) eq -100 && $(item_id) == $folder_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "./f1/."
        set test [label "item_ref" "existing topfolder short, relative" $l]
        array set "" [p item_ref -default_lang en -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "folder" && $(prefix) eq "" && $(stripped_name) eq "f1"
                 && $(parent_id) eq $folder_id && $(item_id) == $f1_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "./parentpage/."
        set test [label "item_ref" "existing page short (without language prefix), relative" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "de" && $(stripped_name) eq "parentpage"
                 && $(parent_id) eq $folder_id && $(item_id) == $parentpage_id}} 1 "\n$test:\n  [array get {}]\n "

        ###############################
        test subsection "Under folder:"
        ###############################

        set l "folder:f1/folder:f3"
        set test [label "item_ref" "existing subfolder" $l]
        array set "" [p item_ref -default_lang en -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "" && $(stripped_name) eq "f3"
                 && $(parent_id) eq $f1_id && $(item_id) == $f3_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "folder:f1/f3/"
        set test [label "item_ref" "existing subfolder short" $l]
        array set "" [p item_ref -default_lang en -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "" && $(stripped_name) eq "f3"
                 && $(parent_id) eq $f1_id && $(item_id) == $f3_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "./folder:f1/folder:f3/"
        set test [label "item_ref" "existing subfolder with prefix and trailing slash" $l]
        array set "" [p item_ref -default_lang en -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "" && $(stripped_name) eq "f3"
                 && $(parent_id) eq $f1_id && $(item_id) == $f3_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "f1/f3/"
        set test [label "item_ref" "existing subfolder short short" $l]
        array set "" [p item_ref -default_lang en -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "" && $(stripped_name) eq "f3"
                 && $(parent_id) eq $f1_id && $(item_id) == $f3_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "folder:f11/folder:f3"
        set test [label "item_ref" "not existing folder with subfolder" $l]
        array set "" [p item_ref -default_lang en -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "" && $(stripped_name) eq "f11"
                 && $(parent_id) eq $folder_id && $(item_id) == 0}} 1 "\n$test:\n  [array get {}]\n "

        set l "f11/folder/"
        set test [label "item_ref" "not existing folder with subfolder short short" $l]
        array set "" [p item_ref -default_lang en -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "" && $(stripped_name) eq "f11"
                 && $(parent_id) eq $folder_id && $(item_id) == 0}} 1 "\n$test:\n  [array get {}]\n "

        set l "f1/folder1/"
        set test [label "item_ref" "existing folder with not existing subfolder short short" $l]
        array set "" [p item_ref -default_lang en -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "" && $(stripped_name) eq "folder1"
                 && $(parent_id) eq $f1_id && $(item_id) == 0}} 1 "\n$test:\n  [array get {}]\n "

        set l "f1/page1"
        set test [label "item_ref" "existing folder with not existing page short short" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "de" && $(stripped_name) eq "page1"
                 && $(parent_id) eq $f1_id && $(item_id) == 0}} 1 "\n$test:\n  [array get {}]\n "

        set l "folder:f1/folder:f3/folder:subf3"
        set test [label "item_ref" "existing subsubfolder" $l]
        array set "" [p item_ref -default_lang en -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "" && $(stripped_name) eq "subf3"
                 && $(parent_id) eq $f3_id && $(item_id) == $subf3_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "f1/f3/subf3"
        set test [label "item_ref" "existing subsubfolder short" $l]
        array set "" [p item_ref -default_lang en -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "" && $(stripped_name) eq "subf3"
                 && $(parent_id) eq $f3_id && $(item_id) == $subf3_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "f1/f3/subf3/."
        set test [label "item_ref" "existing subsubfolder short" $l]
        array set "" [p item_ref -default_lang en -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "folder" && $(prefix) eq "" && $(stripped_name) eq "subf3"
                 && $(parent_id) eq $f3_id && $(item_id) == $subf3_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "folder:f1/folder:f99"
        set test [label "item_ref" "not existing folder in folder" $l]
        array set "" [p item_ref -default_lang en -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "" && $(stripped_name) eq "f99"
                 && $(parent_id) eq $f1_id && $(item_id) == 0}} 1 "\n$test:\n  [array get {}]\n "

        set l "folder:f1/de:testpage"
        set test [label "item_ref" "existing page in folder" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "de" && $(stripped_name) eq "testpage"
                 && $(parent_id) eq $f1_id && $(item_id) == $testpage_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "folder:f1/de:entry"
        set test [label "item_ref" "not existing page in folder" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "de" && $(stripped_name) eq "entry"
                 && $(parent_id) eq $f1_id && $(item_id) == 0}} 1 "\n$test:\n  [array get {}]\n "

        set l "f1/image:image.png"
        set test [label "item_ref" "not existing image" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "image" && $(prefix) eq "file" && $(stripped_name) eq "image.png"
                 && $(parent_id) eq $f1_id && $(item_id) == 0}} 1 "\n$test:\n  [array get {}]\n "

        set l "f1/image.png"
        set test [label "item_ref" "not existing image short" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "image" && $(prefix) eq "file" && $(stripped_name) eq "image.png"
                 && $(parent_id) eq $f1_id && $(item_id) == 0}} 1 "\n$test:\n  [array get {}]\n "

        #############################
        test subsection "Under page:"
        #############################

        set l "de:parentpage/folder:childfolder"
        set test [label "item_ref" "existing folder under page" $l]
        array set "" [p item_ref -default_lang en -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "" && $(stripped_name) eq "childfolder"
                 && $(parent_id) eq $parentpage_id && $(item_id) == $childfolder_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "de:parentpage/folder:childfolder/"
        set test [label "item_ref" "existing folder under page with prefix and trailing slash" $l]
        array set "" [p item_ref -default_lang en -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "" && $(stripped_name) eq "childfolder"
                 && $(parent_id) eq $parentpage_id && $(item_id) == $childfolder_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "de:parentpage/folder:childfolder1"
        set test [label "item_ref" "not existing folder under page" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "" && $(stripped_name) eq "childfolder1"
                 && $(parent_id) eq $parentpage_id && $(item_id) == 0}} 1 "\n$test:\n  [array get {}]\n "

        set l "de:parentpage/folder:childfolder1/"
        set test [label "item_ref" "not existing folder under page with prefix and trailing slash" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "" && $(stripped_name) eq "childfolder1"
                 && $(parent_id) eq $parentpage_id && $(item_id) == 0}} 1 "\n$test:\n  [array get {}]\n "

        set l "de:parentpage/de:childpage"
        set test [label "item_ref" "existing page under page" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "de" && $(stripped_name) eq "childpage"
                 && $(parent_id) eq $parentpage_id && $(item_id) == $childpage_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "parentpage/childpage"
        set test [label "item_ref" "existing page under page short" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "de" && $(stripped_name) eq "childpage"
                 && $(parent_id) eq $parentpage_id && $(item_id) == $childpage_id}} 1 "\n$test:\n  [array get {}]\n "

        #################################
        test subsection "Ending with /.."
        #################################

        set l ".."
        set test [label "item_ref" "dot dot (don't traverse beyond root folder)" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "folder" && $(prefix) eq ""
                 && $(parent_id) == -100 && $(item_id) == $folder_id}} 1 "\n$test:\n  [array get {}]\n "

        set l ".."
        set test [label "item_ref" "dot dot slash dot dot (don't traverse beyond root folder)" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "folder" && $(prefix) eq ""
                 && $(parent_id) == -100 && $(item_id) == $folder_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "f1/f3/subf3/.."
        set test [label "item_ref" "existing subsubfolder dot dot" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "folder" && $(prefix) eq "" && $(stripped_name) eq "f3"
                 && $(parent_id) eq $f1_id && $(item_id) == $f3_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "f1/f3/subf3/../"
        set test [label "item_ref" "existing subsubfolder dot dot slash" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "folder" && $(prefix) eq "" && $(stripped_name) eq "f3"
                 && $(parent_id) eq $f1_id && $(item_id) == $f3_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "f1/f3/subf3/../."
        set test [label "item_ref" "existing subsubfolder dot dot slash dot" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "folder" && $(prefix) eq "" && $(stripped_name) eq "f3"
                 && $(parent_id) eq $f1_id && $(item_id) == $f3_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "f1/f3/subf3/../.."
        set test [label "item_ref" "existing subsubfolder dot dot slash dot dot" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "folder" && $(prefix) eq "" && $(stripped_name) eq "f1"
                 && $(parent_id) eq $folder_id && $(item_id) == $f1_id}} 1 "\n$test:\n  [array get {}]\n "

        set l "parentpage/childpage/.."
        set test [label "item_ref" "existing page und page dot dot" $l]
        array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
        ? {expr {$(link_type) eq "link" && $(prefix) eq "de" && $(stripped_name) eq "parentpage"
                 && $(parent_id) eq $folder_id && $(item_id) == $parentpage_id}} 1 "\n$test:\n  [array get {}]\n "


        test subsection "Links:"

        set l "parentpage"
        set test [label "link" "existing simple page" $l]
        set link [p create_link $l]
        ? {$link render} "<a   href='/$instance_name/de/parentpage'>parentpage</a>" $test

        set l "parentpage1"
        set test [label "link" "not existing simple page" $l]
        set link [p create_link $l]
        ? {$link render} [subst -nocommands {<a class='missing' href='/$instance_name/?nls_language=$expected_locale&amp;object_type=::xowiki::Page&amp;edit-new=1&amp;name=de:parentpage1&amp;parent_id=$folder_id&amp;title=parentpage1'>parentpage1</a>}] $test

        set l "parentpage#a"
        set test [label "link" "existing simple with anchor" $l]
        set link [p create_link $l]
        ? {$link render} [subst -nocommands {<a   href='/$instance_name/de/parentpage#a'>parentpage</a>}] $test

        set l "image:image.png"
        set test [label "link" "existing image" $l]
        set link [p create_link $l]
        ? {$link render} [subst -nocommands {<img class='image' src='/$instance_name/download/file/image.png' alt='image:image.png' title='image:image.png' >}] "\n$test\n "

        set l "image.png"
        set test [label "link" "existing image short" $l]
        set link [p create_link $l]
        ? {$link render} [subst -nocommands {<img class='image' src='/$instance_name/download/file/image.png' alt='image.png' title='image.png' >}] "\n$test\n "

        set l ":de:parentpage"
        set test [label "link" "existing language link" $l]
        p array unset lang_links
        set link [p create_link $l]
        ? {$link render} {} "\n$test\n "
        ? {p array get lang_links} [subst -nocommands {found {{<a href='/$instance_name/de/parentpage' ><img class='found'  src='/resources/xowiki/flags/de.png' alt='de'></a>}}}] "\n$test links\n "

        p destroy
        ############################################

        ##############################
        test section "page properties"
        ##############################

        set f1 [::xo::db::CrClass get_instance_from_db -item_id $f1_id]
        set f2 [::xo::db::CrClass get_instance_from_db -item_id $f3_id]
        set f3 [::xo::db::CrClass get_instance_from_db -item_id $subf3_id]

        set p1 [::xo::db::CrClass get_instance_from_db -item_id $parentpage_id]
        set p2 [::xo::db::CrClass get_instance_from_db -item_id $testpage_id]
        set p3 [::xo::db::CrClass get_instance_from_db -item_id $childpage_id]
        set p4 [::xo::db::CrClass get_instance_from_db -item_id $enpage_id]
        set p5 [::xo::db::CrClass get_instance_from_db -item_id $f3page_id]

        set i1 [::xo::db::CrClass get_instance_from_db -item_id $image_id]
        set i2 [::xo::db::CrClass get_instance_from_db -item_id $subimage_id]
        set i3 [::xo::db::CrClass get_instance_from_db -item_id $childimage_id]

        set l1 [::xo::db::CrClass get_instance_from_db -item_id $pagelink_id]
        set l2 [::xo::db::CrClass get_instance_from_db -item_id $folderlink_id]
        set l3 [::xo::db::CrClass get_instance_from_db -item_id $subpagelink_id]
        set l4 [::xo::db::CrClass get_instance_from_db -item_id $subfolderlink_id]
        set l5 [::xo::db::CrClass get_instance_from_db -item_id $subimagelink_id]

        ? {$f1 is_folder_page} 1
        ? {$f2 is_folder_page} 1
        ? {$f3 is_folder_page} 1

        ? {$p1 is_folder_page} 0

        ? {$l1 is_folder_page} 0
        ? {$l2 is_folder_page} 1
        ? {$l3 is_folder_page} 0
        ? {$l4 is_folder_page} 1
        ? {$l5 is_folder_page} 0

        ? {$f1 is_link_page} 0
        ? {$f2 is_link_page} 0
        ? {$f3 is_link_page} 0

        ? {$p1 is_link_page} 0

        ? {$l1 is_link_page} 1
        ? {$l2 is_link_page} 1
        ? {$l3 is_link_page} 1
        ? {$l4 is_link_page} 1
        ? {$l5 is_link_page} 1


        test section "pretty links"

        ? {$f1 pretty_link} "/XOWIKI-TEST/f1"
        ? {$f2 pretty_link} "/XOWIKI-TEST/f1/f3"
        ? {$f3 pretty_link} "/XOWIKI-TEST/f1/f3/subf3"

        ? {$p1 pretty_link} "/XOWIKI-TEST/de/parentpage"
        ? {$p2 pretty_link} "/XOWIKI-TEST/de/f1/testpage"
        ? {$p3 pretty_link} "/XOWIKI-TEST/de/de:parentpage/childpage"
        ? {$p4 pretty_link} "/XOWIKI-TEST/page"
        ? {$p5 pretty_link} "/XOWIKI-TEST/f1/f3/page"

        ? {$i1 pretty_link} "/XOWIKI-TEST/file/image.png"
        ? {$i2 pretty_link} "/XOWIKI-TEST/file/f1/image2.png"
        ? {$i3 pretty_link} "/XOWIKI-TEST/file/de:parentpage/image3.png"

        ? {$l1 pretty_link} "/XOWIKI-TEST/link1"
        ? {$l2 pretty_link} "/XOWIKI-TEST/link2"
        ? {$l3 pretty_link} "/XOWIKI-TEST/link3"
        ? {$l4 pretty_link} "/XOWIKI-TEST/link4"
        ? {$l5 pretty_link} "/XOWIKI-TEST/link5"
        ? {$l5 pretty_link -download true} "/XOWIKI-TEST/download/file/link5"

        test section "item info from pretty links"

        set l [$f1 pretty_link]
        set test [label "url" "topfolder" $l]
        array set "" [::$package_id item_info_from_url $l]
        ? {expr {$(item_id) == $f1_id && $(stripped_name) eq "f1"}} 1 "\n$test:\n  [array get {}]\n "

        set l [$f2 pretty_link]
        set test [label "url" "folder under topfolder" $l]
        array set "" [::$package_id item_info_from_url $l]
        ? {expr {$(item_id) == $f3_id && $(stripped_name) eq "f3"}} 1 "\n$test:\n  [array get {}]\n "

        set l [$f3 pretty_link]
        set test [label "url" "subsubfolder" $l]
        array set "" [::$package_id item_info_from_url $l]
        ? {expr {$(item_id) == $subf3_id && $(stripped_name) eq "subf3"}} 1 "\n$test:\n  [array get {}]\n "

        set l [$p1 pretty_link]
        set test [label "url" "toppage" $l]
        array set "" [::$package_id item_info_from_url $l]
        ? {expr {$(item_id) == $parentpage_id && $(stripped_name) eq "parentpage"}} 1 "\n$test:\n  [array get {}]\n "

        set l [$p2 pretty_link]
        set test [label "url" "page in folder" $l]
        array set "" [::$package_id item_info_from_url $l]
        ? {expr {$(item_id) == $testpage_id && $(stripped_name) eq "testpage"}} 1 "\n$test:\n  [array get {}]\n "

        set l [$p3 pretty_link]
        set test [label "url" "page under page" $l]
        array set "" [::$package_id item_info_from_url $l]
        ? {expr {$(item_id) == $childpage_id && $(stripped_name) eq "childpage"}} 1 "\n$test:\n  [array get {}]\n "

        set l [$p4 pretty_link]
        set test [label "url" "top-level en page" $l]
        array set "" [::$package_id item_info_from_url $l]
        ? {expr {$(item_id) == $enpage_id && $(stripped_name) eq "page"
                 && $(name) eq "en:page"}} 1 "\n$test:\n  [array get {}]\n "

        set l [$p5 pretty_link]
        set test [label "url" "en page under subfolder" $l]
        array set "" [::$package_id item_info_from_url $l]
        ? {expr {$(item_id) == $f3page_id && $(stripped_name) eq "page"
                 && $(name) eq "en:page"}} 1 "\n$test:\n  [array get {}]\n "

        # image links

        set l [$i1 pretty_link]
        set test [label "url" "top-level image" $l]
        array set "" [::$package_id item_info_from_url $l]
        ? {expr {$(item_id) == $image_id && $(stripped_name) eq "image.png"
                 && $(name) eq "file:image.png"}} 1 "\n$test:\n  [array get {}]\n "

        set l [$i2 pretty_link]
        set test [label "url" "top-level image" $l]
        array set "" [::$package_id item_info_from_url $l]
        ? {expr {$(item_id) == $subimage_id && $(stripped_name) eq "image2.png"
                 && $(name) eq "file:image2.png"}} 1 "\n$test:\n  [array get {}]\n "

        set l [$i3 pretty_link]
        set test [label "url" "top-level image" $l]
        array set "" [::$package_id item_info_from_url $l]
        ? {expr {$(item_id) == $childimage_id && $(stripped_name) eq "image3.png"
                 && $(name) eq "file:image3.png" && $(method) eq ""}} 1 "\n$test:\n  [array get {}]\n "


        # links

        set l [$l1 pretty_link]
        set test [label "url" "top-level link to page" $l]
        array set "" [::$package_id item_info_from_url $l]
        ? {expr {$(item_id) == $pagelink_id && $(stripped_name) eq "link1"
                 && $(name) eq "link1" && $(method) eq ""}} 1 "\n$test:\n  [array get {}]\n "

        set l [$l2 pretty_link]
        set test [label "url" "top-level link to folder" $l]
        array set "" [::$package_id item_info_from_url $l]
        ? {expr {$(item_id) == $folderlink_id && $(stripped_name) eq "link2"
                 && $(name) eq "link2" && $(method) eq ""}} 1 "\n$test:\n  [array get {}]\n "

        set l [$l3 pretty_link]
        set test [label "url" "top-level link to page under folder" $l]
        array set "" [::$package_id item_info_from_url $l]
        ? {expr {$(item_id) == $subpagelink_id && $(stripped_name) eq "link3"
                 && $(name) eq "link3" && $(method) eq ""}} 1 "\n$test:\n  [array get {}]\n "

        set l [$l4 pretty_link]
        set test [label "url" "top-level link to folder under folder" $l]
        array set "" [::$package_id item_info_from_url $l]
        ? {expr {$(item_id) == $subfolderlink_id && $(stripped_name) eq "link4"
                 && $(name) eq "link4" && $(method) eq ""}} 1 "\n$test:\n  [array get {}]\n "

        set l [$l5 pretty_link]
        set test [label "url" "top-level link to image under folder" $l]
        array set "" [::$package_id item_info_from_url $l]
        ? {expr {$(item_id) == $subimagelink_id && $(stripped_name) eq "link5"
                 && $(name) eq "link5" && $(method) eq ""}} 1 "\n$test:\n  [array get {}]\n "

        ########################################################
        test section "item info from variations of pretty links"
        ########################################################

        # download
        set l /XOWIKI-TEST/download/file/image.png
        set test [label "url" "top-level image download" $l]
        array set "" [::$package_id item_info_from_url $l]
        ? {expr {$(item_id) == $image_id && $(stripped_name) eq "image.png"
                 && $(name) eq "file:image.png"  && $(method) eq "download"}} 1 "\n$test:\n  [array get {}]\n "

        # download via link
        #set l /XOWIKI-TEST/download/file/link5
        #set test [label "url" "top-level image download" $l]
        #array set "" [::$package_id item_info_from_url $l]
        #test hint "<p>found $(item_id) should be $subimagelink_id"
        # ? {expr {$(item_id) == $subimagelink_id && $(stripped_name) eq "link5"
        #        && $(name) eq "file:link5"  && $(method) eq "download"}} 1 "\n$test:\n  [array get {}]\n "

        # tag link
        set l /XOWIKI-TEST/tag/a
        set test [label "url" "tag query" $l]
        array set "" [::$package_id item_info_from_url -default_lang de $l]
        ? {expr {$(item_id) != 0 && $(stripped_name) eq "weblog"
                 && $(name) eq "en:weblog"  && $(method) eq ""}} 1 "\n$test:\n  [array get {}]\n"
        # missing: tag links to subdirectories

        # url without default lang
        set l /XOWIKI-TEST/parentpage
        set test [label "url" "toppage w/o de" $l]
        array set "" [::$package_id item_info_from_url -default_lang de $l]
        ? {expr {$(item_id) == $parentpage_id && $(stripped_name) eq "parentpage"}} 1 "\n$test:\n  [array get {}]\n "

        # prefixed name
        set l /XOWIKI-TEST/de:parentpage
        set test [label "url" "toppage prefixed eq default_lang" $l]
        array set "" [::$package_id item_info_from_url -default_lang de $l]
        ? {expr {$(item_id) == $parentpage_id && $(stripped_name) eq "parentpage"}} 1 "\n$test:\n  [array get {}]\n "

        set l /XOWIKI-TEST/de:parentpage
        set test [label "url" "toppage prefixed ne default_lang" $l]
        array set "" [::$package_id item_info_from_url -default_lang en $l]
        ? {expr {$(item_id) == $parentpage_id && $(stripped_name) eq "parentpage"}} 1 "\n$test:\n  [array get {}]\n "


        #############################################
        test section "item info via links to folders"
        #############################################

        # reference pages over links to folders

        set l /XOWIKI-TEST/link2/testpage
        set test [label "url" "reference page over links to folder default-lang" $l]
        array set "" [::$package_id item_info_from_url -default_lang de $l]
        ? {expr {$(item_id) == $testpage_id && $(stripped_name) eq "testpage"
                 && $(name) eq "de:testpage"}} 1 "\n$test:\n  [array get {}]\n "

        set l /XOWIKI-TEST/link2/de:testpage
        set test [label "url" "reference page over links to folder direct name" $l]
        array set "" [::$package_id item_info_from_url $l]
        ? {expr {$(item_id) == $testpage_id && $(stripped_name) eq "testpage"
                 && $(name) eq "de:testpage"}} 1 "\n$test:\n  [array get {}]\n "

        set l /XOWIKI-TEST/download/file/link2/image2.png
        set test [label "url" "reference download image over links to folder" $l]
        array set "" [::$package_id item_info_from_url $l]
        ? {expr {$(item_id) == $subimage_id && $(stripped_name) eq "image2.png"
                 && $(name) eq "file:image2.png"}} 1 "\n$test:\n  [array get {}]\n "

        set l /XOWIKI-TEST/link2/f3/page
        set test [label "url" "path contains link and references finally page" $l]
        array set "" [::$package_id item_info_from_url $l]
        ? {expr {$(item_id) == $f3page_id && $(stripped_name) eq "page"
                 && $(name) eq "en:page"}} 1 "\n$test:\n  [array get {}]\n "


        #test section "inherited pages"

        # link to site-wide page

        #set l /XOWIKI-TEST/en/folder.form
        #set test [label "url" "site-wide-page top" $l]
        #array set "" [::$package_id item_info_from_url -default_lang de $l]
        #? {expr {$(item_id) == $parentpage_id && $(stripped_name) eq "parentpage"}} 1 "\n$test:\n  [array get {}]\n "

        # link to page in other package
        # link to dir in other package

        ##########################
        test section "Form Fields"
        ##########################

        # Create dummy object with a minimal setup to be used like a page
        set o [::xotcl::Object new -destroy_on_cleanup]
        $o mixin ::xowiki::Page
        $o name dummy
        $o nls_language en_US
        $o package_id [dict get $info package_id]

        set f0 [$o create_raw_form_field -name test -slot ::xowiki::Page::slot::name]
        set widgetSpec [$f0 asWidgetSpec]
        ? {regexp {text.*name.*html.*size.*help_text} $widgetSpec} 1 "name with help_text"

        set f0 [$o create_raw_form_field -name test -slot ::xowiki::Page::slot::name -spec inform]
        set widgetSpec [$f0 asWidgetSpec]
        ? {regexp {text.*inform.*html.*help_text} $widgetSpec} 1 "name with help_text + inform"

        set f0 [$o create_raw_form_field -name test -slot ::xowiki::Page::slot::name -spec optional]
        set widgetSpec [$f0 asWidgetSpec]
        ? {regexp {text,optional.*html.*help_text} $widgetSpec} 1 "name with help_text + optional"

        set f0 [$o create_raw_form_field -name test  -slot ::xowiki::Page::slot::description  -spec "textarea,cols=80,rows=2"]
        set widgetSpec [$f0 asWidgetSpec]
        ? {regexp {text.*cols.*.*80.*rows.*2} $widgetSpec} 1 "textarea,cols=80,rows=2"

        set f0 [$o create_raw_form_field -name test  -slot ::xowiki::Page::slot::nls_language  -spec {select,options={{de_DE de_DE} {en_US en_US} {pt_BR pt_BR} {es_ES es_ES}}}]
        set widgetSpec [$f0 asWidgetSpec]
        ? {regexp {text.select.*.*en_US} $widgetSpec} 1 "{select,options=[xowiki::locales]}"

        $o mixin ::xowiki::PodcastItem
        set f0 [$o create_raw_form_field -name test  -slot ::xowiki::PodcastItem::slot::pub_date]
        set widgetSpec [$f0 asWidgetSpec]
        ? {regexp {date,optional.*.*YYYY.*MM.*} $widgetSpec} 1 "date with format"

        test destroy
   }} {
          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" "xowiki_test_cases (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo"
          }
          incr body_count
        }
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: