Index: openacs-4/packages/acs-tcl/tcl/test/application-data-link-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/application-data-link-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/test/application-data-link-procs.tcl	14 May 2007 20:30:26 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/test/application-data-link-procs.tcl	14 May 2009 13:39:15 -0000	1.3
@@ -5,7 +5,9 @@
 aa_register_case -cats api data_links_scan_links {
     Test scanning content for object URLs
 } {
-    set text {Some random text <img src="/o/0"> <a href="/file/0"> <img src="/image/0"> <img src="/image/4/"> <img src="/image/0/thumbnail"> <img src="/image/0/info"> <a href="http://example.com/o/9">
+    # get a new object_id from the sequence, this object will not exist
+    set nonexistant_object_id [db_nextval "acs_object_id_seq"]
+    set text {Some random text <img src="/o/0"> <a href="/file/0"> <img src="/image/0"> <img src="/image/${nonexistant_object_id}/"> <img src="/image/0/thumbnail"> <img src="/image/0/info"> <a href="http://example.com/o/9">
               Some More Random Text <a href="/o/junk"> <a href="/file/junk"> <a href="/image/junk"> /o/10 /file/11 /image/12
 	/o/[junk] /file/[junk] /image/[junk]
         /o/" /file/" /image/"