xowf::test_item::AssessmentInterface method assert_answer_instance (protected)

 <instance of xowf::test_item::AssessmentInterface> assert_answer_instance \
    o

Defined in packages/xowf/tcl/test-item-procs.tcl

we could include as well {[$o property answer] ne ""} in case we initialize it

Parameters:

o (required, object)

Testcases:

No testcase defined.

Source code:

set ok [expr {[$o is_wf_instance] == 1 && [$o is_wf] == 0}]
if {!$ok} {
  ns_log notice "NO ANSWER [$o title]"
  ns_log notice "NO ANSWER page_template [[$o page_template] title]"
  ns_log notice "NO ANSWER iswfi [$o is_wf_instance] iswf [$o is_wf]"
  ns_log notice "[$o serialize]"
  error "'[lindex [info level -1] 0]': not an answer instance"
}

XQL Not present:

Generic, PostgreSQL, Oracle