xowf::test_item::Answer_manager method revisions_up_to (public)

 <instance of xowf::test_item::Answer_manager> revisions_up_to \
    revision_sets revision_id

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

Return the revisions of the provided revision set up the provided revision_id. If this revision_id does not exist, return the full set.

Parameters:

revision_sets (required)

revision_id (required)

Testcases:

No testcase defined.

Source code:

set result ""
set stop 0
return [lmap s $revision_sets {
  if {$stop} break
  set stop [expr {[ns_set get $s revision_id] eq $revision_id}]
  set s
}]

XQL Not present:

Generic, PostgreSQL, Oracle