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/db-proc-test-procs.tcl,v
diff -u -r1.1.2.14 -r1.1.2.15
--- openacs-4/packages/acs-tcl/tcl/test/db-proc-test-procs.tcl	28 Feb 2021 21:27:19 -0000	1.1.2.14
+++ openacs-4/packages/acs-tcl/tcl/test/db-proc-test-procs.tcl	28 Feb 2021 21:27:48 -0000	1.1.2.15
@@ -622,9 +622,9 @@
         db_string
     } \
     db__string {
-        
+
         This tests db_string with various arguments.
-        
+
     } {
         set r [db_string x {select object_id from acs_objects where object_id = -1}]
         aa_true "constant query" {$r == -1}
@@ -639,7 +639,7 @@
         set s [ns_set create binds b -1]
         set r [db_string x {select object_id from acs_objects where object_id = :b} -bind $s]
         aa_true "query with provided bind variable from ns_set" {$r == -1}
-        
+
         set r [db_string x {select object_id from acs_objects where object_id = -4711} -default -1]
         aa_true "failing query with default" {$r == -1}
     }
@@ -650,13 +650,13 @@
     -procs {
         db_list
         db_list_of_lists
-        
+
         db_list_of_ns_sets
     } \
     db__list_variants {
-        
+
         This tests db_list with various arguments.
-        
+
     } {
         foreach cmd {db_list db_list_of_lists} {
             set r [$cmd x {select object_id from acs_objects where object_id = -1}]
@@ -665,15 +665,15 @@
             set x -1
             set r [$cmd x {select object_id from acs_objects where object_id = :x}]
             aa_true "$cmd query with bind variable from environment" {$r == -1}
-            
+
             set r [$cmd x {select object_id from acs_objects where object_id = :a} -bind {a -1}]
             aa_true "$cmd query with provided bind variable from var list" {$r == -1}
-            
+
             set s [ns_set create binds b -1]
             set r [$cmd x {select object_id from acs_objects where object_id = :b} -bind $s]
             aa_true "$cmd query with provided bind variable from ns_set" {$r == -1}
         }
-        
+
     }
 
 # Local variables: