Index: openacs-4/etc/install/dotlrn-basic-setup.test
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/etc/install/dotlrn-basic-setup.test,v
diff -u -N -r1.8 -r1.9
--- openacs-4/etc/install/dotlrn-basic-setup.test	23 Oct 2003 13:49:29 -0000	1.8
+++ openacs-4/etc/install/dotlrn-basic-setup.test	29 Oct 2003 14:38:22 -0000	1.9
@@ -56,8 +56,8 @@
     ::twt::log_section "Test customize layout page"
     ::twt::new_portal::test::customize_layout        
 
-    #::twt::log_section "Test the manage memberships page"
-    #::twt::dotlrn::test::manage_my_memberships
+    ::twt::log_section "Test the manage memberships page"
+    ::twt::dotlrn::test::manage_my_memberships
 
     #::twt::user::login_site_wide_admin            
 
Index: openacs-4/etc/install/tcl/class-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/etc/install/tcl/class-procs.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/etc/install/tcl/class-procs.tcl	22 Oct 2003 13:16:00 -0000	1.5
+++ openacs-4/etc/install/tcl/class-procs.tcl	29 Oct 2003 14:38:09 -0000	1.6
@@ -5,6 +5,7 @@
 # @author Peter Marklund
 
 namespace eval ::twt::class {}
+namespace eval ::twt::class::test {}
 
 ad_proc ::twt::class::get_admin_urls { } {
     Returns a list with the fully qualified URLs of the admin pages of
@@ -169,3 +170,18 @@
         }
     }
 }
+
+###################
+#
+# Namespace ::twt::class::test - no demo data setup, pure testing
+#
+###################
+
+ad_proc ::twt::class::test::manage_memberships {} {
+    Test removing users and changing their roles in a class
+    using the class_url/members page.
+
+    @author Peter Marklund
+} {
+    
+}
\ No newline at end of file
Index: openacs-4/etc/install/tcl/dotlrn-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/etc/install/tcl/dotlrn-procs.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/etc/install/tcl/dotlrn-procs.tcl	23 Oct 2003 13:49:22 -0000	1.8
+++ openacs-4/etc/install/tcl/dotlrn-procs.tcl	29 Oct 2003 14:38:09 -0000	1.9
@@ -217,12 +217,6 @@
 ###################
 
 ad_proc ::twt::dotlrn::test::manage_my_memberships {} {
-    return [::twt::oacs::eval {
-        db_string select_non_member_classes
-    }]
-}
-
-ad_proc ::twt::dotlrn::test::manage_my_memberships {} {
     Test that user can manage (join/drop) his own class and community memberships.
 } {
     # First request some ids from the OpenACS server
Index: openacs-4/etc/install/tcl/twt-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/etc/install/tcl/twt-procs.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/etc/install/tcl/twt-procs.tcl	23 Oct 2003 13:49:22 -0000	1.8
+++ openacs-4/etc/install/tcl/twt-procs.tcl	29 Oct 2003 14:38:09 -0000	1.9
@@ -247,3 +247,25 @@
 
     return $count
 }
+
+# No longer needed as the problem was due to malformed HTML and is
+# better handled within tclwebtest
+#  ad_proc ::twt::all_urls {} {
+#      Returns all urls on the page last requested.
+
+#      This proc is a workaround to the problem
+#      with Tclwebtest not always finding all links with the [link all]
+#      command.
+
+#      @return A list of URLs of the last requested page
+
+#      @author Peter Marklund
+#  } {
+#      set all_urls [list]
+#      set remaining_body [response body]
+#      while { [regexp -all {^(.*?)<a href="?([^">]+)(.*)$} $remaining_body match before_match link_url remaining_body] } {
+#          lappend all_urls $link_url
+#      }    
+    
+#      return $all_urls
+#  }