Skip to content

Commit f859afc

Browse files
cyanogilviecyanogilvie
committed
Update to account for differing interpretations of number literals with leading 0 in Tcl 9
1 parent 2168d2b commit f859afc

1 file changed

Lines changed: 66 additions & 28 deletions

File tree

‎bench/template.bench‎

Lines changed: 66 additions & 28 deletions
Original file line numberDiff line numberDiff line change
@@ -77,20 +77,39 @@ proc main {} {
7777
}]
7878
#>>>
7979
bench template-2.1 {Test templated doc creation, including numbers} -setup { #<<<
80-
set foo 1
81-
set bar 42.5
82-
set baz 1e6
83-
set quux 0x42
84-
set octal 077
85-
set space " 42"
86-
87-
set d {
88-
foo 1
89-
bar 42.5
90-
baz 1e6
91-
quux 0x42
92-
octal 077
93-
space " 42"
80+
if {[package vsatisfies [package require Tcl] 9-]} {
81+
# Octal literal format changed in version 9
82+
set foo 1
83+
set bar 42.5
84+
set baz 1e6
85+
set quux 0x42
86+
set octal 0o77
87+
set space " 42"
88+
89+
set d {
90+
foo 1
91+
bar 42.5
92+
baz 1e6
93+
quux 0x42
94+
octal 0o77
95+
space " 42"
96+
}
97+
} else {
98+
set foo 1
99+
set bar 42.5
100+
set baz 1e6
101+
set quux 0x42
102+
set octal 077
103+
set space " 42"
104+
105+
set d {
106+
foo 1
107+
bar 42.5
108+
baz 1e6
109+
quux 0x42
110+
octal 077
111+
space " 42"
112+
}
94113
}
95114
} -compare {
96115
template_string {
@@ -158,20 +177,39 @@ proc main {} {
158177
}]
159178
#>>>
160179
bench template-3.1 {Test templated doc creation, including numbers, json set on result} -setup { #<<<
161-
set foo 1
162-
set bar 42.5
163-
set baz 1e6
164-
set quux 0x42
165-
set octal 077
166-
set space " 42"
167-
168-
set d {
169-
foo 1
170-
bar 42.5
171-
baz 1e6
172-
quux 0x42
173-
octal 077
174-
space " 42"
180+
if {[package vsatisfies [package require Tcl] 9-]} {
181+
# Octal literal format changed in version 9
182+
set foo 1
183+
set bar 42.5
184+
set baz 1e6
185+
set quux 0x42
186+
set octal 0o77
187+
set space " 42"
188+
189+
set d {
190+
foo 1
191+
bar 42.5
192+
baz 1e6
193+
quux 0x42
194+
octal 0o77
195+
space " 42"
196+
}
197+
} else {
198+
set foo 1
199+
set bar 42.5
200+
set baz 1e6
201+
set quux 0x42
202+
set octal 077
203+
set space " 42"
204+
205+
set d {
206+
foo 1
207+
bar 42.5
208+
baz 1e6
209+
quux 0x42
210+
octal 077
211+
space " 42"
212+
}
175213
}
176214
} -compare {
177215
template_string {

0 commit comments

Comments
 (0)