Index: openacs-4/packages/dotlrn/tcl/test/club-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/test/Attic/club-procs.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/tcl/test/club-procs.tcl	26 Feb 2021 15:58:11 -0000	1.1.2.1
@@ -0,0 +1,34 @@
+ad_library {
+
+    Tests for dotlrn clubs
+
+    @author Héctor Romojaro <hector.romojaro@gmail.com>
+    @creation-date 26 February 2021
+    @cvs-id $Id: club-procs.tcl,v 1.1.2.1 2021/02/26 15:58:11 hectorr Exp $
+}
+
+aa_register_case -cats {
+    api
+    smoke
+} -procs {
+    dotlrn_club::new
+    dotlrn_club::community_type
+    dotlrn_community::get_community_type_from_community_id
+} dotlrn_club_new {
+    Test creating a new dotlrn club
+} {
+    aa_run_with_teardown -rollback -test_code {
+        #
+        # Create new club
+        #
+        set pretty_name "My test club"
+        set club_id [dotlrn_club::new -pretty_name $pretty_name]
+        #
+        # Check that the club exists
+        #
+        set club_type [dotlrn_club::community_type]
+        aa_equals "Club exists" \
+            [dotlrn_community::get_community_type_from_community_id $club_id] \
+            "$club_type"
+    }
+}