Index: openacs-4/packages/acs-tcl/tcl/test/text-html-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/text-html-procs.tcl,v diff -u -r1.11.2.8 -r1.11.2.9 --- openacs-4/packages/acs-tcl/tcl/test/text-html-procs.tcl 11 Nov 2020 12:37:52 -0000 1.11.2.8 +++ openacs-4/packages/acs-tcl/tcl/test/text-html-procs.tcl 22 Feb 2021 10:33:54 -0000 1.11.2.9 @@ -762,7 +762,7 @@ aa_section "Testing left pad" set string [ad_generate_random_string] - set length [expr {int(rand()*1000)}] + set length [expr {1 + int(rand()*1000)}] set padstring [ad_generate_random_string] aa_log " - string: $string" @@ -779,7 +779,7 @@ aa_section "Testing right pad" set string [ad_generate_random_string] - set length [expr {int(rand()*1000)}] + set length [expr {1 + int(rand()*1000)}] set padstring [ad_generate_random_string] aa_log " - string: $string"