Index: openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	6 Dec 2003 15:11:16 -0000	1.18
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	18 Dec 2003 15:44:07 -0000	1.19
@@ -718,3 +718,24 @@
 
 }
 
+aa_register_case util__randomize_list {
+    Test util::randomize_list
+} {
+    aa_equals "Emtpy list" [util::randomize_list {}] {}
+
+    aa_equals "One-element list" [util::randomize_list {a}] {a}
+
+    aa_true "Two-element list" [util_sets_equal_p [list a b] [util::randomize_list [list a b]]]
+
+    set org_list [list a b c d e f g h i j]
+    set randomized_list [util::randomize_list $org_list]
+    aa_true "Ten-element list: $randomized_list" [util_sets_equal_p $org_list $randomized_list]
+
+    set len [randomRange 200]
+    set org_list [list]
+    for { set i 0 } { $i < $len } { incr i } {
+        lappend org_list [ad_generate_random_string]
+    }
+    set randomized_list [util::randomize_list $org_list]
+    aa_true "Long random list" [util_sets_equal_p $org_list $randomized_list]
+}