Index: openacs-4/packages/acs-tcl/tcl/test/openacs-kernel-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/openacs-kernel-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-tcl/tcl/test/openacs-kernel-procs.tcl	3 Nov 2018 11:15:16 -0000	1.5
+++ openacs-4/packages/acs-tcl/tcl/test/openacs-kernel-procs.tcl	3 Sep 2024 15:37:34 -0000	1.6
@@ -5,14 +5,17 @@
 
 aa_register_case \
     -cats {api smoke} \
-    -procs {oacs_util::csv_foreach} \
+    -procs {
+        oacs_util::csv_foreach
+        ad_tmpdir
+    } \
     csv_foreach {
-    Test block execution for rows in a csv file.
+    Test block execution for rows in a CSV file.
 } {
     aa_run_with_teardown -test_code {
 
-        # Create cvs file
-        set file_loc "/tmp/test.csv"
+        # Create CSV file
+        set file_loc "[ad_tmpdir]/test.csv"
         set file_id [open $file_loc w]
         puts $file_id "first_name,last_name,instrument"
         puts $file_id "Charles,Mingus,Bass"
@@ -30,7 +33,7 @@
         oacs_util::csv_foreach -file $file_loc -array_name row {
             lappend artist_list "$row(first_name) $row(last_name) - $row(instrument)"
         }
-        aa_equals "Getting artists from csv file" $artist_list {{Charles Mingus - Bass}\
+        aa_equals "Getting artists from CSV file" $artist_list {{Charles Mingus - Bass}\
                                                                     {Miles Davis - Trumpet}\
                                                                     {Jhon Coltrane - Saxo}\
                                                                     {Charlie Parker - Saxo}\
@@ -45,14 +48,15 @@
     -procs {
         oacs_util::process_objects_csv
         person::get
+        ad_tmpdir
     } \
     process_objects_csv {
-    Test object creation for every row in a csv file.
+    Test object creation for every row in a CSV file.
 } {
     aa_run_with_teardown -rollback -test_code {
 
-        # Create cvs file of persons
-        set file_loc "/tmp/test.csv"
+        # Create CSV file of persons
+        set file_loc "[ad_tmpdir]/test.csv"
         set file_id [open $file_loc w]
         puts $file_id "email,first_names,last_name"
         puts $file_id "cmingus@foo.bar,Charles,Mingus"