Index: openacs-4/packages/acs-tcl/tcl/test/defs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/defs-procs.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/acs-tcl/tcl/test/defs-procs.tcl	18 Oct 2022 06:57:15 -0000	1.1.2.3
+++ openacs-4/packages/acs-tcl/tcl/test/defs-procs.tcl	28 Feb 2023 10:06:14 -0000	1.1.2.4
@@ -74,5 +74,31 @@
         aa_section "Admin home URL"
         aa_equals "The admin home URL is as expected" \
             [ad_admin_home] [subsite::get_element -element url]admin
-        
     }
+
+aa_register_case \
+    -cats {api smoke} \
+    -procs {
+        ad_parameter_from_file
+    } \
+    ad_parameter_from_file {
+        Test ad_parameter_from_file proc
+    } {
+        foreach section [ns_configsections] {
+            set section_name [ns_set name $section]
+            if {[regexp ^ns/server/[ns_info server]/acs(.*)\$ $section_name _ package_key]} {
+                set found_p 1
+                set package_key [string trimleft $package_key /]
+                foreach key [ns_set keys $section] {
+                    set expected [ns_set get $section $key]
+                    set result [ad_parameter_from_file $key $package_key]
+                    aa_equals "Value is expected" \
+                        $result $expected
+                }
+            }
+        }
+
+        if {![info exists found_p]} {
+            aa_log "No parameter exposed to the api was found in the server conf."
+        }
+    }