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.15 -r1.16
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	7 Oct 2003 15:49:53 -0000	1.15
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	4 Nov 2003 10:03:56 -0000	1.16
@@ -674,3 +674,17 @@
 
     db_dml drop_table {drop table tmp_db_transaction_test}
 }
+
+
+aa_register_case util__subset_p {
+    Test the util_subset_p proc.
+
+    @author Peter Marklund
+} {
+    aa_true "List is a subset" [util_subset_p [list c b] [list c a a b b a]]
+    aa_true "List is a subset" [util_subset_p [list a b c] [list c a b]]
+    aa_false "List is not a subset" [util_subset_p [list a a a b b c] [list c c a b b a]]
+    aa_true "List is a subset" [util_subset_p -ignore_duplicates [list a a a b b c] [list c c a b b a]]
+    aa_false "List is not a subset" [util_subset_p [list a b c d] [list a b c]]
+}
+