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.3 -r1.4
--- openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl	15 Feb 2004 11:12:32 -0000	1.3
+++ openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl	13 Mar 2005 22:21:37 -0000	1.4
@@ -6,6 +6,30 @@
     @cvs-id $Id$
 }
 
+aa_register_case acs_subsite_expose_bug_775 {
+    Exposes Bug 775.
+
+    @author Don Baccus
+} {
+
+    aa_run_with_teardown \
+        -rollback \
+        -test_code {
+
+        set group_id [group::new -group_name group_775]
+        set rel_id [rel_segments_new $group_id membership_rel segment_775]
+        relation_add membership_rel $group_id 0
+        permission::grant -object_id $group_id -party_id 0 -privilege read
+
+        if { [catch {group::delete $group_id} errmsg] } {
+            aa_error "Delete of group \"group_775\" failed."
+        } else {
+            aa_true "Delete of group \"group_775\" succeeded." 1
+        }
+    }
+
+}
+
 aa_register_case acs_subsite_expose_bug_1144 {
     Exposes Bug 1144.
 
@@ -65,4 +89,4 @@
             aa_true "Main subsite exists" [exists_and_not_null main_subsite_id]
 
         }
-}
\ No newline at end of file
+}