1# -*- tcl -*- 2# trim.test: tests for the textutil package. 3# 4# This file contains a collection of tests for one or more of the Tcl 5# built-in commands. Sourcing this file into Tcl runs the tests and 6# generates output for errors. No output means no errors were found. 7# 8 9# ------------------------------------------------------------------------- 10 11source [file join \ 12 [file dirname [file dirname [file join [pwd] [info script]]]] \ 13 devtools testutilities.tcl] 14 15testsNeedTcl 8.5 16testsNeedTcltest 1.0 17 18testing { 19 useLocal repeat.tcl textutil::repeat 20} 21 22# ------------------------------------------------------------------------- 23 24test rep-0.1 {repeat < 0} { 25 set str [::textutil::repeat::strRepeat . -1] 26 set str 27} "" 28 29test rep-0.2 {repeat 0} { 30 set str [::textutil::repeat::strRepeat . 0] 31 set str 32} "" 33 34test rep-0.3 {repeat 1} { 35 set str [::textutil::repeat::strRepeat . 1] 36 set str 37} "." 38 39test rep-0.4 {repeat 2} { 40 set str [::textutil::repeat::strRepeat . 2] 41 set str 42} ".." 43 44test rep-0.5 {repeat 3} { 45 set str [::textutil::repeat::strRepeat . 3] 46 set str 47} "..." 48 49test rep-0.6 {repeat 5} { 50 set str [::textutil::repeat::strRepeat . 5] 51 set str 52} "....." 53 54test rep-0.7 {repeat 10} { 55 set str [::textutil::repeat::strRepeat . 10] 56 set str 57} ".........." 58 59test rep-0.8 {repeat 100} { 60 set str [::textutil::repeat::strRepeat . 100] 61 set str 62} "...................................................................................................." 63