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.14 -r1.15
--- openacs-4/packages/xolp/tcl/test/xolp-test-procs.tcl	12 Apr 2019 12:09:58 -0000	1.14
+++ openacs-4/packages/xolp/tcl/test/xolp-test-procs.tcl	15 Apr 2019 09:46:36 -0000	1.15
@@ -1478,7 +1478,7 @@
                                 -user_id [ad_conn user_id] \
                                 -policy "average" \
                                 -competency_iri "http://example.com/competencies/programming/tcl"]
-                aa_equals "User has 72% of competency 'Tcl Programming' (average)" $result 51.00
+                aa_equals "User has 51% of competency 'Tcl Programming' (average)" $result 51.00
                 set level [::xolp::User get_competency_evaluation \
                                -user_id [ad_conn user_id] \
                                -policy "average" \
@@ -1489,12 +1489,12 @@
                                 -user_id [ad_conn user_id] \
                                 -policy "worst" \
                                 -competency_iri "http://example.com/competencies/programming/tcl"]
-                aa_equals "User has 72% of competency 'Tcl Programming' (worst)" $result 30.00
+                aa_equals "User has 30% of competency 'Tcl Programming' (worst)" $result 30.00
                 set level [::xolp::User get_competency_evaluation \
                                -user_id [ad_conn user_id] \
                                -policy "worst" \
                                -competency_iri "http://example.com/competencies/programming/tcl"]
-                aa_equals "User is a senior Tcl dev. (worst)" [$level name] "junior"
+                aa_equals "User is a junior Tcl dev. (worst)" [$level name] "junior"
 
                 #
                 # Database Design