Index: openacs-4/packages/dotlrn/tcl/test/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/test/community-procs.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/tcl/test/community-procs.tcl	7 Feb 2006 21:18:08 -0000	1.1.2.1
@@ -0,0 +1,52 @@
+# packages/dotlrn/tcl/test/community-procs.tcl
+
+ad_library {
+    
+    
+    
+    @author Roel Canicula (roel@solutiongrove.com)
+    @creation-date 2006-02-08
+    @arch-tag: 0fe80025-b3ae-4e64-884c-4d8de30bdde5
+    @cvs-id $Id: community-procs.tcl,v 1.1.2.1 2006/02/07 21:18:08 roelc Exp $
+}
+
+aa_register_case -cats { api } \
+    -procs { dotlrn_community::new dotlrn_community::clone } \
+    dotlrn_community_clone { Test permission settings of cloned community } {
+	aa_run_with_teardown \
+	    -rollback \
+	    -test_code {
+		set community_name [ad_generate_random_string 8]
+		set community_id [dotlrn_community::new \
+				      -pretty_name $community_name \
+				      -community_type "dotlrn_club"]
+		aa_log "created community: $community_name, $community_id"
+		aa_false "comunity_inherits_permissions" [permission::inherit_p \
+							      -object_id $community_id]
+
+		set clone_id [dotlrn_community::clone \
+				  -community_id $community_id \
+				  -key [ad_generate_random_string 8]]
+		aa_log "cloned community: $clone_id"
+		aa_false "cloned_community_inherits_permissions" [permission::inherit_p \
+								      -object_id $clone_id]
+	    }
+    }
+
+aa_register_case -cats { db security_risk } \
+    -procs { } \
+    communities_security_inherit { Test permission settings of all communities } {
+	aa_run_with_teardown \
+	    -rollback \
+	    -test_code {
+		db_foreach get_communities_with_inherit {
+		    select 1
+		    where exists (select *
+				  from dotlrn_communities_all c, acs_objects o
+				  where c.community_id = o.object_id
+				  and o.security_inherit_p = 't')
+		} {
+		    aa_error "One or more communities inherit permissions, high probability of security risk"
+		}		
+	    }
+    }
\ No newline at end of file