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.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 +}