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