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.5 -r1.6
--- openacs-4/packages/acs-tcl/tcl/test/html-conversion-procs.tcl 6 Feb 2004 12:36:55 -0000 1.5
+++ openacs-4/packages/acs-tcl/tcl/test/html-conversion-procs.tcl 15 Feb 2004 11:15:43 -0000 1.6
@@ -6,7 +6,7 @@
}
-aa_register_case ad_html_to_text_bold {
+aa_register_case -cats {api smoke} ad_html_to_text_bold {
Test if it converts b tags correctly.
@@ -21,13 +21,12 @@
}
-aa_register_case ad_html_to_text_clipped_link {
+aa_register_case -cats {api smoke} -bugs 386 -error_level warning \
+ ad_html_to_text_clipped_link {
Test if it converts clipped links.
- http://openacs.org/bugtracker/openacs/bug?bug_number=386
} {
-
# try with missing leading and trailing quote
foreach html {{
@@ -50,14 +49,14 @@
}
-aa_register_case ad_html_security_check_href_allowed {
+aa_register_case -cats {api smoke} ad_html_security_check_href_allowed {
tests is href attribute is allowed of A tags
} {
set html "An Link"
aa_true "href is allowed for A tags" [string equal [ad_html_security_check $html] ""]
}
-aa_register_case util_close_html_tags {
+aa_register_case -cats {api smoke} util_close_html_tags {
Tests closing HTML tags.
} {
aa_equals "" [util_close_html_tags "Foobar"] "Foobar"
@@ -72,7 +71,7 @@
}
-aa_register_case ad_html_text_convert {
+aa_register_case -cats {api smoke} ad_html_text_convert {
Testing ad_html_text_convert.
} {
#----------------------------------------------------------------------
@@ -129,7 +128,7 @@
}
-aa_register_case string_truncate {
+aa_register_case -cats {api smoke} string_truncate {
Testing string truncation
} {
aa_equals "" [string_truncate -len 5 -ellipsis "" -- "foobar greble"] ""