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 -N -r1.10 -r1.11 --- openacs-4/packages/xolp/tcl/test/xolp-test-procs.tcl 11 Apr 2019 13:25:51 -0000 1.10 +++ openacs-4/packages/xolp/tcl/test/xolp-test-procs.tcl 11 Apr 2019 13:31:05 -0000 1.11 @@ -1422,6 +1422,16 @@ aa_run_with_teardown \ -rollback \ -test_code { + ::xolp::Indicator insert \ + -user_id [ad_conn user_id] \ + -activity_version_id $exam1 \ + -result_numerator 90 + + ::xolp::Indicator insert \ + -user_id [ad_conn user_id] \ + -activity_version_id $exam2 \ + -result_numerator 80 + set c [::xolp::User get_competencies -user_id [ad_conn user_id]] aa_equals "2 directly attached competencies." [llength [dict keys $c]] 2 set c [::xolp::User get_competencies_recursive -user_id [ad_conn user_id]]