1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
# Commands covered: lrepeat
#
# This file contains a collection of tests for one or more of the Tcl
# built-in commands. Sourcing this file into Tcl runs the tests and
# generates output for errors. No output means no errors were found.
#
# Copyright © 2003 Simon Geard.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
if {"::tcltest" ni [namespace children]} {
package require tcltest 2.5
namespace import -force ::tcltest::*
}
## Arg errors
test lrepeat-1.1 {error cases} {
-body {
lrepeat
}
-returnCodes 1
-result {wrong # args: should be "lrepeat count ?value ...?"}
}
test lrepeat-1.2 {Accept zero elements(TIP 323)} {
-body {
lrepeat 1
}
-result {}
}
test lrepeat-1.3 {error cases} {
-body {
lrepeat a 1
}
-returnCodes 1
-result {expected integer but got "a"}
}
test lrepeat-1.4 {error cases} {
-body {
lrepeat -3 1
}
-returnCodes 1
-result {bad count "-3": must be integer >= 0}
}
test lrepeat-1.5 {Accept zero repetitions (TIP 323)} {
-body {
lrepeat 0
}
-result {}
}
test lrepeat-1.6 {error cases} {
-body {
lrepeat 3.5 1
}
-returnCodes 1
-result {expected integer but got "3.5"}
}
test lrepeat-1.7 {Accept zero repetitions (TIP 323)} {
-body {
lrepeat 0 a b c
}
-result {}
}
test lrepeat-1.8 {Do not build enormous lists - Bug 2130992} -constraints knownBug -body {
lrepeat 0x10000000 a b c d e f g h
} -returnCodes error -match glob -result *
## Okay
test lrepeat-2.1 {normal cases} {
lrepeat 10 a
} {a a a a a a a a a a}
test lrepeat-2.2 {normal cases} {
lrepeat 3 [lrepeat 3 0]
} {{0 0 0} {0 0 0} {0 0 0}}
test lrepeat-2.3 {normal cases} {
lrepeat 3 a b c
} {a b c a b c a b c}
test lrepeat-2.4 {normal cases} {
lrepeat 3 [lrepeat 2 a] b c
} {{a a} b c {a a} b c {a a} b c}
# cleanup
::tcltest::cleanupTests
return
|
