Index: openacs-4/contrib/packages/simulation/test/crawl-links.test
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/test/Attic/crawl-links.test,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/simulation/test/crawl-links.test	18 Nov 2003 13:31:33 -0000	1.1
+++ openacs-4/contrib/packages/simulation/test/crawl-links.test	19 Nov 2003 10:05:07 -0000	1.2
@@ -1,4 +1,4 @@
-#if { [catch {
+if { [catch {
     # Source Tcl libraries
     set script_dir [file dirname [info script]]
     source "${script_dir}/../../../etc/install/tcl/test-procs.tcl"
@@ -9,18 +9,24 @@
     ::twt::log_section "Login the site wide admin"
     ::twt::user::login_site_wide_admin
 
-    set simulation_uri /simulation
+    ::twt::set_crawler_exclude_links {delete}
+    
+    # NOTE: The crawler needs the trailing slash when first invoked
+    set simulation_uri /simulation/
     ::twt::log_section "crawling links starting from $simulation_uri"        
     ::twt::crawl_links $simulation_uri
+
+    ::twt::log "Did not visit the following URLs because of exclude list: [join [::twt::get_excluded_urls] "\n"]"
+    ::twt::log "TODO: Should we visit the delete links for better coverage? It tears down demo data though."
             
-# } result] } {
-#     global errorInfo
+ } result] } {
+     global errorInfo
 
-#     # Output error stack trace and HTML response body
-#     ::twt::log $result
-#     ::twt::log "*** Tcl TRACE ***"
-#     ::twt::log $errorInfo
-#     ::twt::log "The response body is: [response body]"
+     # Output error stack trace and HTML response body
+     ::twt::log $result
+     ::twt::log "*** Tcl TRACE ***"
+     ::twt::log $errorInfo
+     ::twt::log "The response body is: [response body]"
 
-#     error "Test failed: $result"
-# }
+     error "Test failed: $result"
+ }
Index: openacs-4/packages/simulation/test/crawl-links.test
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/test/Attic/crawl-links.test,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/simulation/test/crawl-links.test	18 Nov 2003 13:31:33 -0000	1.1
+++ openacs-4/packages/simulation/test/crawl-links.test	19 Nov 2003 10:05:07 -0000	1.2
@@ -1,4 +1,4 @@
-#if { [catch {
+if { [catch {
     # Source Tcl libraries
     set script_dir [file dirname [info script]]
     source "${script_dir}/../../../etc/install/tcl/test-procs.tcl"
@@ -9,18 +9,24 @@
     ::twt::log_section "Login the site wide admin"
     ::twt::user::login_site_wide_admin
 
-    set simulation_uri /simulation
+    ::twt::set_crawler_exclude_links {delete}
+    
+    # NOTE: The crawler needs the trailing slash when first invoked
+    set simulation_uri /simulation/
     ::twt::log_section "crawling links starting from $simulation_uri"        
     ::twt::crawl_links $simulation_uri
+
+    ::twt::log "Did not visit the following URLs because of exclude list: [join [::twt::get_excluded_urls] "\n"]"
+    ::twt::log "TODO: Should we visit the delete links for better coverage? It tears down demo data though."
             
-# } result] } {
-#     global errorInfo
+ } result] } {
+     global errorInfo
 
-#     # Output error stack trace and HTML response body
-#     ::twt::log $result
-#     ::twt::log "*** Tcl TRACE ***"
-#     ::twt::log $errorInfo
-#     ::twt::log "The response body is: [response body]"
+     # Output error stack trace and HTML response body
+     ::twt::log $result
+     ::twt::log "*** Tcl TRACE ***"
+     ::twt::log $errorInfo
+     ::twt::log "The response body is: [response body]"
 
-#     error "Test failed: $result"
-# }
+     error "Test failed: $result"
+ }