Index: openacs-4/packages/xolp/tcl/test/xolp-test-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xolp/tcl/test/xolp-test-procs.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/xolp/tcl/test/xolp-test-procs.tcl 11 Apr 2019 11:58:54 -0000 1.7 +++ openacs-4/packages/xolp/tcl/test/xolp-test-procs.tcl 11 Apr 2019 12:03:57 -0000 1.8 @@ -351,10 +351,11 @@ set end_timestamp [db_string now {select current_timestamp(0)}] set result_numerator [format "%.0f" [expr {[random] * 100}]] set indicator [::xolp::Indicator insert \ - -activity_version_id $activity_version_id \ - -end_timestamp $end_timestamp \ - -result_numerator $result_numerator \ - -return object] + -activity_version_id $activity_version_id \ + -begin_timestamp $end_timestamp \ + -end_timestamp $end_timestamp \ + -result_numerator $result_numerator \ + -return object] aa_log [$indicator serialize] aa_equals "Indicator activity version id correct" [$indicator activity_version_id] $activity_version_id aa_equals "Indicator user id correct" [$indicator user_id] [ad_conn user_id]