Index: openacs-4/contrib/packages/simulation/tcl/test/simulation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/tcl/test/Attic/simulation-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/packages/simulation/tcl/test/simulation-procs.tcl	12 Nov 2003 09:36:10 -0000	1.3
+++ openacs-4/contrib/packages/simulation/tcl/test/simulation-procs.tcl	18 Nov 2003 13:31:33 -0000	1.4
@@ -8,6 +8,14 @@
 set name [ad_generate_random_string]
 
 aa_register_case simulation__data_model {
+    Test the simulation::object:url and simulation::object::content_url
+    procs.
+} {
+    aa_log [simulation::object::url -name "test_name"]
+    aa_log [simulation::object::content_url -name "test_name"]
+}
+
+aa_register_case simulation__data_model {
     Checks that the data model is present.
 
     @author Joel Aufrecht