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.16 -r1.17
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	4 Nov 2003 10:03:56 -0000	1.16
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	4 Nov 2003 10:33:37 -0000	1.17
@@ -684,7 +684,10 @@
     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]]
+
+    aa_equals "List is a subset" [util_get_subset_missing [list a a a b b c] [list c c a b b a]] [list]
+    aa_equals "List is a subset" [util_get_subset_missing [list a a a b b c] [list c c a b b a]] [list]
+    aa_equals "List is not a subset" [util_get_subset_missing [list a b c d] [list a b c]] [list d]
 }