@ -3,7 +3,7 @@
#:use-module (deliberate preference)
#:use-module (deliberate utils)
#:export (borda-score social-choice-borda social-preference-borda)
#:export (profile->scores groups->totals profile-borda-totals))
#:export (counts->scores groups->totals profile-borda-totals))
;; Calculate the borda score of each alternative in `ranked`.
;;
@ -46,7 +46,7 @@
(borda-score test-alts test-pref))
(test-equal test-scores
(profile->scores test-alts test-profile))
(counts->scores test-alts test-profile))
(test-equal test-groups
(group-by car test-scores))