OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [tcl/] [tests/] [set.test] - Blame information for rev 1774

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 578 markom 
# Commands covered:  set
2 
#
3 
# This file contains a collection of tests for one or more of the Tcl
4 
# built-in commands.  Sourcing this file into Tcl runs the tests and
5 
# generates output for errors.  No output means no errors were found.
6 
#
7 
# Copyright (c) 1996 Sun Microsystems, Inc.
8 
#
9 
# See the file "license.terms" for information on usage and redistribution
10 
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
11 
#
12 
# RCS: @(#) $Id: set.test,v 1.1.1.1 2002-01-16 10:25:36 markom Exp $
13 
 
14 
if {[string compare test [info procs test]] == 1} then {source defs}
15 
 
16 
catch {unset x}
17 
catch {unset i}
18 
 
19 
test set-1.1 {TclCompileSetCmd: missing variable name} {
20 
    list [catch {set} msg] $msg
21 
} {1 {wrong # args: should be "set varName ?newValue?"}}
22 
test set-1.2 {TclCompileSetCmd: simple variable name} {
23 
    set i 10
24 
    list [set i] $i
25 
} {10 10}
26 
test set-1.3 {TclCompileSetCmd: error compiling variable name} {
27 
    set i 10
28 
    catch {set "i"xxx} msg
29 
    set msg
30 
} {quoted string doesn't terminate properly}
31 
test set-1.4 {TclCompileSetCmd: simple variable name in quotes} {
32 
    set i 17
33 
    list [set "i"] $i
34 
} {17 17}
35 
test set-1.5 {TclCompileSetCmd: simple variable name in braces} {
36 
    catch {unset {a simple var}}
37 
    set {a simple var} 27
38 
    list [set {a simple var}] ${a simple var}
39 
} {27 27}
40 
test set-1.6 {TclCompileSetCmd: simple array variable name} {
41 
    catch {unset a}
42 
    set a(foo) 37
43 
    list [set a(foo)] $a(foo)
44 
} {37 37}
45 
test set-1.7 {TclCompileSetCmd: non-simple (computed) variable name} {
46 
    set x "i"
47 
    set i 77
48 
    list [set $x] $i
49 
} {77 77}
50 
test set-1.8 {TclCompileSetCmd: non-simple (computed) variable name} {
51 
    set x "i"
52 
    set i 77
53 
    list [set [set x] 2] $i
54 
} {2 2}
55 
 
56 
test set-1.9 {TclCompileSetCmd: 3rd arg => assignment} {
57 
    set i "abcdef"
58 
    list [set i] $i
59 
} {abcdef abcdef}
60 
test set-1.10 {TclCompileSetCmd: only two args => just getting value} {
61 
    set i {one two}
62 
    set i
63 
} {one two}
64 
 
65 
test set-1.11 {TclCompileSetCmd: simple global name} {
66 
    proc p {} {
67 
        global i
68 
        set i 54
69 
        set i
70 
    }
71 
    p
72 
} {54}
73 
test set-1.12 {TclCompileSetCmd: simple local name} {
74 
    proc p {bar} {
75 
        set foo $bar
76 
        set foo
77 
    }
78 
    p 999
79 
} {999}
80 
test set-1.13 {TclCompileSetCmd: simple but new (unknown) local name} {
81 
    proc p {} {
82 
        set bar
83 
    }
84 
    catch {p} msg
85 
    set msg
86 
} {can't read "bar": no such variable}
87 
test set-1.14 {TclCompileSetCmd: simple local name, >255 locals} {
88 
    proc 260locals {} {
89 
        # create 260 locals (the last ones with index > 255)
90 
        set a0 0; set a1 0; set a2 0; set a3 0; set a4 0
91 
        set a5 0; set a6 0; set a7 0; set a8 0; set a9 0
92 
        set b0 0; set b1 0; set b2 0; set b3 0; set b4 0
93 
        set b5 0; set b6 0; set b7 0; set b8 0; set b9 0
94 
        set c0 0; set c1 0; set c2 0; set c3 0; set c4 0
95 
        set c5 0; set c6 0; set c7 0; set c8 0; set c9 0
96 
        set d0 0; set d1 0; set d2 0; set d3 0; set d4 0
97 
        set d5 0; set d6 0; set d7 0; set d8 0; set d9 0
98 
        set e0 0; set e1 0; set e2 0; set e3 0; set e4 0
99 
        set e5 0; set e6 0; set e7 0; set e8 0; set e9 0
100 
        set f0 0; set f1 0; set f2 0; set f3 0; set f4 0
101 
        set f5 0; set f6 0; set f7 0; set f8 0; set f9 0
102 
        set g0 0; set g1 0; set g2 0; set g3 0; set g4 0
103 
        set g5 0; set g6 0; set g7 0; set g8 0; set g9 0
104 
        set h0 0; set h1 0; set h2 0; set h3 0; set h4 0
105 
        set h5 0; set h6 0; set h7 0; set h8 0; set h9 0
106 
        set i0 0; set i1 0; set i2 0; set i3 0; set i4 0
107 
        set i5 0; set i6 0; set i7 0; set i8 0; set i9 0
108 
        set j0 0; set j1 0; set j2 0; set j3 0; set j4 0
109 
        set j5 0; set j6 0; set j7 0; set j8 0; set j9 0
110 
        set k0 0; set k1 0; set k2 0; set k3 0; set k4 0
111 
        set k5 0; set k6 0; set k7 0; set k8 0; set k9 0
112 
        set l0 0; set l1 0; set l2 0; set l3 0; set l4 0
113 
        set l5 0; set l6 0; set l7 0; set l8 0; set l9 0
114 
        set m0 0; set m1 0; set m2 0; set m3 0; set m4 0
115 
        set m5 0; set m6 0; set m7 0; set m8 0; set m9 0
116 
        set n0 0; set n1 0; set n2 0; set n3 0; set n4 0
117 
        set n5 0; set n6 0; set n7 0; set n8 0; set n9 0
118 
        set o0 0; set o1 0; set o2 0; set o3 0; set o4 0
119 
        set o5 0; set o6 0; set o7 0; set o8 0; set o9 0
120 
        set p0 0; set p1 0; set p2 0; set p3 0; set p4 0
121 
        set p5 0; set p6 0; set p7 0; set p8 0; set p9 0
122 
        set q0 0; set q1 0; set q2 0; set q3 0; set q4 0
123 
        set q5 0; set q6 0; set q7 0; set q8 0; set q9 0
124 
        set r0 0; set r1 0; set r2 0; set r3 0; set r4 0
125 
        set r5 0; set r6 0; set r7 0; set r8 0; set r9 0
126 
        set s0 0; set s1 0; set s2 0; set s3 0; set s4 0
127 
        set s5 0; set s6 0; set s7 0; set s8 0; set s9 0
128 
        set t0 0; set t1 0; set t2 0; set t3 0; set t4 0
129 
        set t5 0; set t6 0; set t7 0; set t8 0; set t9 0
130 
        set u0 0; set u1 0; set u2 0; set u3 0; set u4 0
131 
        set u5 0; set u6 0; set u7 0; set u8 0; set u9 0
132 
        set v0 0; set v1 0; set v2 0; set v3 0; set v4 0
133 
        set v5 0; set v6 0; set v7 0; set v8 0; set v9 0
134 
        set w0 0; set w1 0; set w2 0; set w3 0; set w4 0
135 
        set w5 0; set w6 0; set w7 0; set w8 0; set w9 0
136 
        set x0 0; set x1 0; set x2 0; set x3 0; set x4 0
137 
        set x5 0; set x6 0; set x7 0; set x8 0; set x9 0
138 
        set y0 0; set y1 0; set y2 0; set y3 0; set y4 0
139 
        set y5 0; set y6 0; set y7 0; set y8 0; set y9 0
140 
        set z0 0; set z1 0; set z2 0; set z3 0; set z4 0
141 
        set z5 0; set z6 0; set z7 0; set z8 0; set z9 1234
142 
    }
143 
    260locals
144 
} {1234}
145 
test set-1.15 {TclCompileSetCmd: variable is array} {
146 
    catch {unset a}
147 
    set x 27
148 
    set x [set a(foo) 11]
149 
    catch {unset a}
150 
    set x
151 
} 11
152 
test set-1.16 {TclCompileSetCmd: variable is array, elem substitutions} {
153 
    catch {unset a}
154 
    set i 5
155 
    set x 789
156 
    set a(foo5) 27
157 
    set x [set a(foo$i)]
158 
    catch {unset a}
159 
    set x
160 
} 27
161 
 
162 
test set-1.17 {TclCompileSetCmd: doing assignment, simple int} {
163 
    set i 5
164 
    set i 123
165 
} 123
166 
test set-1.18 {TclCompileSetCmd: doing assignment, simple int} {
167 
    set i 5
168 
    set i -100
169 
} -100
170 
test set-1.19 {TclCompileSetCmd: doing assignment, simple but not int} {
171 
    set i 5
172 
    set i 0x12MNOP
173 
    set i
174 
} {0x12MNOP}
175 
test set-1.20 {TclCompileSetCmd: doing assignment, in quotes} {
176 
    set i 25
177 
    set i "-100"
178 
} -100
179 
test set-1.21 {TclCompileSetCmd: doing assignment, in braces} {
180 
    set i 24
181 
    set i {126}
182 
} 126
183 
test set-1.22 {TclCompileSetCmd: doing assignment, large int} {
184 
    set i 5
185 
    set i 200000
186 
} 200000
187 
test set-1.23 {TclCompileSetCmd: doing assignment, formatted int != int} {
188 
    set i 25
189 
    set i 000012345     ;# an octal literal == 5349 decimal
190 
    list $i [incr i]
191 
} {000012345 5350}
192 
 
193 
test set-1.24 {TclCompileSetCmd: too many arguments} {
194 
    set i 10
195 
    catch {set i 20 30} msg
196 
    set msg
197 
} {wrong # args: should be "set varName ?newValue?"}
198 
 
199 
test set-2.1 {set command: runtime error, bad variable name} {
200 
    list [catch {set {"foo}} msg] $msg $errorInfo
201 
} {1 {can't read ""foo": no such variable} {can't read ""foo": no such variable
202 
    while executing
203 
"set {"foo}"}}
204 
test set-2.2 {set command: runtime error, not array variable} {
205 
    catch {unset b}
206 
    set b 44
207 
    list [catch {set b(123)} msg] $msg
208 
} {1 {can't read "b(123)": variable isn't array}}
209 
test set-2.3 {set command: runtime error, errors in reading variables} {
210 
    catch {unset a}
211 
    set a(6) 44
212 
    list [catch {set a(18)} msg] $msg
213 
} {1 {can't read "a(18)": no such element in array}}
214 
test set-2.4 {set command: runtime error, readonly variable} {
215 
    proc readonly args {error "variable is read-only"}
216 
    set x 123
217 
    trace var x w readonly
218 
    list [catch {set x 1} msg] $msg $errorInfo
219 
} {1 {can't set "x": variable is read-only} {can't set "x": variable is read-only
220 
    while executing
221 
"set x 1"}}
222 
test set-2.5 {set command: runtime error, basic array operations} {
223 
    list [catch {set a(other)} msg] $msg
224 
} {1 {can't read "a(other)": no such element in array}}
225 
test set-2.6 {set command: runtime error, basic array operations} {
226 
    list [catch {set a} msg] $msg
227 
} {1 {can't read "a": variable is array}}
228 
 
229 
catch {unset a}
230 
catch {unset b}
231 
catch {unset i}
232 
catch {unset x}
233 
return ""

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.