Index: openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl,v
diff -u -r1.23 -r1.23.2.1
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	26 Feb 2004 15:28:54 -0000	1.23
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	25 Mar 2004 11:43:32 -0000	1.23.2.1
@@ -847,3 +847,16 @@
     aa_log "100 years - we know it's wrong because of Tcl library limitations: [util::age_pretty -timestamp_ansi "1904-01-01 12:00:00" -sysdate_ansi "2004-01-01 12:00:00"]"
 }
 
+aa_register_case -cats {api} \
+    -bugs 1450 \
+    acs_tcl__process_enhanced_correctly {
+       
+	Process sample text correctly
+	@author Nima Mazloumi
+    } {
+	
+	set string_with_img {<img src="http://test.test/foo.png">}
+	aa_log "Original string is $string_with_img"
+	set html_version [ad_enhanced_text_to_html $string_with_img]
+	aa_true "new: $html_version should be the same" [string equal $html_version $string_with_img] 
+}