Index: openacs-4/packages/dotlrn/tcl/test/dotlrn-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/test/dotlrn-procs.tcl,v
diff -u -r1.4 -r1.4.2.1
--- openacs-4/packages/dotlrn/tcl/test/dotlrn-procs.tcl	7 Aug 2017 23:48:09 -0000	1.4
+++ openacs-4/packages/dotlrn/tcl/test/dotlrn-procs.tcl	26 Feb 2021 14:34:37 -0000	1.4.2.1
@@ -269,6 +269,25 @@
 	    twt::user::logout
 	}
 }
+
+aa_register_case -cats {
+    api
+    production_safe
+} -procs {
+    dotlrn::community_type
+    dotlrn_class::community_type
+    dotlrn_club::community_type
+} dotlrn_community_types {
+    Simple test for dotlrn community_types
+} {
+    aa_equals "dotlrn::community_type" [dotlrn::community_type] \
+        "dotlrn_community"
+    aa_equals "dotlrn_class::community_type" [dotlrn_class::community_type] \
+        "dotlrn_class_instance"
+    aa_equals "dotlrn_club::community_type" [dotlrn_club::community_type] \
+        "dotlrn_club"
+}
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4