Index: openacs-4/packages/acs-developer-support/tcl/test/acs-developer-support-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/test/Attic/acs-developer-support-procs.tcl,v
diff -u -N -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/acs-developer-support/tcl/test/acs-developer-support-procs.tcl	31 May 2021 14:37:48 -0000	1.1.2.1
+++ openacs-4/packages/acs-developer-support/tcl/test/acs-developer-support-procs.tcl	31 May 2021 17:02:54 -0000	1.1.2.2
@@ -37,3 +37,70 @@
             ds_set_adp_reveal_enabled $old_state
         }
     }
+
+aa_register_case \
+    -cats {api smoke} \
+    -procs {
+        ds_collection_enabled_p
+        ds_database_enabled_p
+        ds_enabled_p
+        ds_page_fragment_cache_enabled_p
+        ds_profiling_enabled_p
+        ds_show_p
+    } \
+    ds_features_enabled_test {
+        Check that the api to check for enabled features works as
+        expected.
+    } {
+        set old_enabled_state [ds_enabled_p]
+        set old_db_state [ds_database_enabled_p]
+        set old_pr_state [ds_profiling_enabled_p]
+
+        try {
+            set collection_enabled_p 0
+            foreach pattern [nsv_get ds_properties enabled_ips] {
+                if { [string match $pattern [ad_conn peeraddr]] } {
+                    set collection_enabled_p 1
+                    break
+                }
+            }
+            aa_equals "collection enabled value is correct" \
+                $collection_enabled_p [ds_collection_enabled_p]
+
+            ds_set_database_enabled 0
+            aa_equals "database enabled is OFF" \
+                0 [ds_database_enabled_p]
+            ds_set_database_enabled 1
+            aa_equals "database enabled is ON" \
+                1 [ds_database_enabled_p]
+
+            aa_equals "page fragment cache enabled value is correct" \
+                [nsv_get ds_properties page_fragment_cache_p] \
+                [ds_page_fragment_cache_enabled_p]
+
+            ds_set_profiling_enabled 0
+            aa_equals "profiling enabled is OFF" \
+                0 [ds_profiling_enabled_p]
+            ds_set_profiling_enabled 1
+            aa_equals "profiling enabled is ON" \
+                1 [ds_profiling_enabled_p]
+
+            set enabled_p 0
+            nsv_set ds_properties enabled_p $enabled_p
+            set ::ds_enabled_p $enabled_p
+            aa_equals "enabled value is OFF" 0 [ds_enabled_p]
+            aa_equals "show value is OFF" 0 [ds_show_p]
+
+            set enabled_p 1
+            nsv_set ds_properties enabled_p $enabled_p
+            set ::ds_enabled_p $enabled_p
+            aa_equals "enabled value is ON" 1 [ds_enabled_p]
+            aa_equals "show value is the permission enabled value" [ds_permission_p] [ds_show_p]
+
+        } finally {
+            ds_set_database_enabled $old_db_state
+            ds_set_profiling_enabled $old_pr_state
+            nsv_set ds_properties enabled_p $old_enabled_state
+            set ::ds_enabled_p $old_enabled_state
+        }
+    }