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 -r1.4 -r1.4.2.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	20 Jun 2006 13:31:25 -0000	1.4.2.1
@@ -90,3 +90,9 @@
 
         }
 }
+
+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 where member_id=0 and group_id <> acs__magic_object_id('the_pubic')" -default 0] 0
+}
\ No newline at end of file