Index: openacs-4/packages/calendar/tcl/test/calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/test/calendar-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/calendar/tcl/test/calendar-procs.tcl	15 Nov 2003 11:48:29 -0000	1.1
+++ openacs-4/packages/calendar/tcl/test/calendar-procs.tcl	14 Feb 2004 18:53:04 -0000	1.2
@@ -6,76 +6,3 @@
     @cvs-id $Id$
 }
 
-aa_register_case calendar_create {
-    Test the calendar_create proc.
-} { 
-
-    aa_run_with_teardown \
-        -rollback \
-        -test_code {
-            
-            # Create calendar
-            set calendar_id [calendar_create [ad_conn user_id] t "foo"]
-            
-            set success_p [db_string success_p {
-                select 1 from calendars where calendar_id = :calendar_id
-            } -default "0"]
-
-            aa_equals "calendar was created succesfully" $success_p 1
-        }
-}
-
-aa_register_case calendar_update {
-    Test the calendar_update proc.
-} {    
-
-    aa_run_with_teardown \
-        -rollback \
-        -test_code {
-            
-            set owner_id [ad_conn user_id]
-
-            # Create calendar
-            set calendar_id [calendar_create $owner_id f "foo"]
-            calendar_update $calendar_id $owner_id "bar" "public"
-            
-            db_1row success_p {
-                select calendar_name, private_p from calendars where calendar_id = :calendar_id
-            }
-
-            aa_equals "calendar name was succesfully updated" $calendar_name "bar"
-            aa_equals "calendar name was succesfully updated" $private_p "f"
-        }
-}
-
-aa_register_case calendar_get_name {
-    Test the calendar_get_name proc.
-} {    
-
-    aa_run_with_teardown \
-        -rollback \
-        -test_code {
-            
-            # Create calendar
-            set calendar_id [calendar_create [ad_conn user_id] t "foo"]
-            set calendar_name [calendar_get_name $calendar_id]
-
-            aa_equals "calendar name is correct" $calendar_name "foo"
-        }
-}
-
-aa_register_case calendar_public_p {
-    Test the calendar_public_p proc.
-} {    
-
-    aa_run_with_teardown \
-        -rollback \
-        -test_code {
-            
-            # Create calendar
-            set calendar_id [calendar_create [ad_conn user_id] f "foo"]
-            set public_p [calendar_public_p $calendar_id]
-
-            aa_equals "calendar is public" $public_p "t"
-        }
-}