Index: openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl,v
diff -u -N -r1.4 -r1.4.4.1
--- openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl	13 Mar 2005 22:21:37 -0000	1.4
+++ openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl	14 Dec 2006 04:19:20 -0000	1.4.4.1
@@ -90,3 +90,16 @@
 
         }
 }
+
+aa_register_case -cats smoke acs_subsite_unregistered_visitor {
+    Test that unregistered visitor is not in any groups
+} {
+
+    aa_equals "Unregistered vistior is not in any groups except The Public" \
+        [db_string count_rels "
+	    select count(*)
+	    from group_member_map g, acs_magic_objects a
+	    where g.member_id = 0
+	      and g.group_id <> a.object_id
+	      and a.name = 'the_pubic'" -default 0] 0
+}