acs::test::xpath::non_empty (public)

 acs::test::xpath::non_empty node selectors

Defined in packages/acs-automated-testing/tcl/aa-test-procs.tcl

Test if provided selectors return nonempty results

Parameters:
node (required)
selectors (required)

Partial Call Graph (max 5 caller/called nodes):
%3 test_markup_parsing markup_parsing (test acs-automated-testing) acs::test::xpath::non_empty acs::test::xpath::non_empty test_markup_parsing->acs::test::xpath::non_empty aa_true aa_true (public) acs::test::xpath::non_empty->aa_true acs::test::xpath::get_text acs::test::xpath::get_text (public) acs::test::xpath::non_empty->acs::test::xpath::get_text xowiki::test::create_form_page xowiki::test::create_form_page (public) xowiki::test::create_form_page->acs::test::xpath::non_empty

Testcases:
markup_parsing
Source code:
        #
        # if we have no node, use as default the root in the parent
        # environment
        #
        if {$node eq ""} {
            set node [uplevel 1 {set root}]
        }
        foreach q $selectors {
            try {
                set value [get_text $node $q]
            } on error {errorMsg} {
                aa_true "XPAth exception during evaluation of selector '$q': $errorMsg" 0
                throw {XPATH {xpath triggered exception}} $errorMsg
            }
            aa_true "XPath $q <$value>:" {$value ne ""}
        }
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: