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

 <instance of xowf::test_item::Answer_manager> last_time_switched_to_state \
    -state state  [ -before before ] revision_sets

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

Loops through revision sets and retrieves the latest date where state is equal the specified value.

Switches:

-state (required)

-before (optional)

Parameters:

revision_sets (required)

a list of ns_sets containing revision data. List is assumed to be sorted in descending creation_date order (as retrieved by get_revision_sets)

Returns:

a date

Testcases:

No testcase defined.

Source code:

set result ""
set last_state ""
foreach ps $revision_sets {
  if {$before ne ""} {
    set currentClock [clock scan [::xo::db::tcl_date [ns_set get $ps last_modified] tz]]
    if {$currentClock > $before} {
      break
    }
  }
  if {$last_state ne $state && $state eq [ns_set get $ps state]} {
    set result [ns_set get $ps last_modified]
  }
  set last_state [ns_set get $ps state]
}
return $result

XQL Not present:

Generic, PostgreSQL, Oracle