Index: openacs-4/packages/acs-tcl/tcl/test/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/Attic/utilities-procs.tcl,v
diff -u -r1.1.2.15 -r1.1.2.16
--- openacs-4/packages/acs-tcl/tcl/test/utilities-procs.tcl	13 Dec 2022 15:05:11 -0000	1.1.2.15
+++ openacs-4/packages/acs-tcl/tcl/test/utilities-procs.tcl	28 Feb 2023 08:47:31 -0000	1.1.2.16
@@ -434,7 +434,30 @@
         [template::multirow size test_util_get_user_messages] 2
 }
 
+aa_register_case -cats {
+    api
+    smoke
+} -procs {
+    ad_job
+} ad_job {
+    Test ad_job proc
+} {
+    set queue __test_acs_tcl_ad_job
 
+    set result [ad_job -queue $queue expr {1 + 1}]
+
+    aa_equals "Result is 2" \
+        $result 2
+
+    aa_true "Error when timeout is reached" [catch {
+        ad_job -queue $queue -timeout 0.1 after 200
+    }]
+
+    aa_true "Queue exists after calling the proc" {
+        $queue in [ns_job queues]
+    }
+}
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4