Index: openacs-4/packages/acs-tcl/tcl/test/db-proc-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/Attic/db-proc-test-procs.tcl,v
diff -u -r1.1.2.16 -r1.1.2.17
--- openacs-4/packages/acs-tcl/tcl/test/db-proc-test-procs.tcl	28 Feb 2021 21:53:54 -0000	1.1.2.16
+++ openacs-4/packages/acs-tcl/tcl/test/db-proc-test-procs.tcl	23 Jun 2021 11:14:40 -0000	1.1.2.17
@@ -778,6 +778,24 @@
         aa_false "$cmd returns variable" {[info exists object_id]}
     }
 
+aa_register_case -cats {
+    api
+    production_safe
+} -procs {
+    db_boolean
+} db_boolean {
+    Test the db_boolean proc.
+} {
+    set bool_true {t 1 -1 true 1234 yes TRUE YES on ON}
+    set bool_false {f 0 false no FALSE NO off OFF Off}
+    foreach value $bool_true {
+        aa_equals "True" [db_boolean $value] "t"
+    }
+    foreach value $bool_false {
+        aa_equals "False" [db_boolean $value] "f"
+    }
+}
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4