Modified build/test/publish-tests from [137a0321be] to [ccd0830569].

    88     88   
    89     89   	return [join $desc {, }]
    90     90   }
    91     91   
    92     92   proc pretty_print_size {size} {
    93     93   	foreach unit [list "" K M G T P] {
    94     94   		if {$size < 1024} {
    95         -			if {$size < 10} {
           95  +			if {$size < 10 && $unit != ""} {
    96     96   				set size [expr {round($size * 10) / 10.0}]
    97     97   			} else {
    98     98   				set size [expr {round($size)}]
    99     99   			}
   100    100   
   101    101   			return "$size [string trim ${unit}B]"
   102    102   		}