Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | formatcell.test column |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | tcltest |
| Files: | files | file ages | folders |
| SHA3-256: |
268a41f89d61343a4a4f1de6345697c6 |
| User & Date: | alex 2019-11-27 16:57:48 |
Context
|
2019-11-28
| ||
| 08:16 | formatcell.test borders check-in: 4ef4f97de4 user: alex tags: tcltest | |
|
2019-11-27
| ||
| 16:57 | formatcell.test column check-in: 268a41f89d user: alex tags: tcltest | |
| 15:00 | merged from trunk check-in: 47e17db8b5 user: alex tags: tcltest | |
Changes
Changes to ooxml.tcl.
2111 2112 2113 2114 2115 2116 2117 2118 2119 2120 2121 2122 2123 2124 2125 |
my variable obj
my variable cols
array set opts {
index {}
to {}
width {}
style {}
bestfit 0
customwidth 0
string 0
nozero 0
calcfit 0
}
|
| |
2111 2112 2113 2114 2115 2116 2117 2118 2119 2120 2121 2122 2123 2124 2125 |
my variable obj
my variable cols
array set opts {
index {}
to {}
width {}
style 0
bestfit 0
customwidth 0
string 0
nozero 0
calcfit 0
}
|
Changes to tests/benchmark.test.
34
35
36
37
38
39
40
41
42
43
44
45
46
47
..
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
incr row
}
$spreadsheet write "$rows-$cols.xlsx"
$spreadsheet destroy
}
test Benchmark-1.1 {benchmark cell generating} {
set rc 1
set list {msec per cell}
set first -1
foreach {rows cols} { 500 10 1000 10 3000 10 5000 10 } {
set msec [lindex [time {doit $rows $cols}] 0]
................................................................................
puts $list
set rc 0
}
}
return $rc
} 1
file delete -force 500-10.xlsx 1000-10.xlsx 3000-10.xlsx 5000-10.xlsx
# cleanup
::tcltest::cleanupTests
return
|
>
>
|
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
..
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
incr row
}
$spreadsheet write "$rows-$cols.xlsx"
$spreadsheet destroy
}
if 0 {
test Benchmark-1.1 {benchmark cell generating} {
set rc 1
set list {msec per cell}
set first -1
foreach {rows cols} { 500 10 1000 10 3000 10 5000 10 } {
set msec [lindex [time {doit $rows $cols}] 0]
................................................................................
puts $list
set rc 0
}
}
return $rc
} 1
}
file delete -force 500-10.xlsx 1000-10.xlsx 3000-10.xlsx 5000-10.xlsx
# cleanup
::tcltest::cleanupTests
return
|
Changes to tests/formatcell.test.
932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 |
}
return $rc
} 1
test FormatCellCheckColumns-10.1 {Check Worksheet Columns} {
set rc 1
return $rc
for {set i 0} {$i < $w_obj(1,cols)} {incr i} {
array set w $w_cols(1,$i)
array set r $workbook(0,col,$i)
foreach {n v} [array get w] {
if {![info exists r($n)] || $r($n) ne $v} {
set rc 0
}
}
|
| | > > > |
932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 |
}
return $rc
} 1
test FormatCellCheckColumns-10.1 {Check Worksheet Columns} {
set rc 1
set idxList {}
foreach n [array names w_cols 1,*] {
lappend idxList [lindex [split $n ,] end]
}
foreach i $idxList {
array set w $w_cols(1,$i)
array set r $workbook(0,col,$i)
foreach {n v} [array get w] {
if {![info exists r($n)] || $r($n) ne $v} {
set rc 0
}
}
|