Index: openacs-4/packages/acs-tcl/tcl/test/html-conversion-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/html-conversion-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/test/html-conversion-procs.tcl	11 Dec 2003 21:39:56 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/test/html-conversion-procs.tcl	26 Jan 2004 15:39:46 -0000	1.3
@@ -49,3 +49,10 @@
     }
 }
 
+
+aa_register_case ad_html_security_check_href_allowed {
+    tests is href attribute is allowed of A tags
+} {
+    set html "<a href=\"http://www.example/com\">An Link</a>"
+    aa_true "href is allowed for A tags" [string equal [ad_html_security_check $html] ""]
+}
\ No newline at end of file