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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [tcl/] [tests/] [incr.test] - Blame information for rev 578

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

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

powered by: WebSVN 2.1.0

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