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

 <instance of xowf::test_item::AssessmentInterface> list_equal l1 \
    l2

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

Compare two lists for equality. This function has to be used, when lists contain the same elements in the same order, but these are not literally equal due to, e.g., line breaks between list elements, etc.

Parameters:

l1 (required)

l2 (required)

Testcases:

No testcase defined.

Source code:

if {[llength $l1] != [llength $l2]} {
  return 0
}
foreach e1 $l1 e2 $l2 {
  if {$e1 ne $e2} {
    return 0
  }
}
return 1

XQL Not present:

Generic, PostgreSQL, Oracle