ooxml

Check-in [8fa48338f7]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:enable benchmark
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tcltest
Files: files | file ages | folders
SHA3-256: 8fa48338f7b58c036afab82622b4457d3352621e819c62bc1518aafe4592b51a
User & Date: alex 2019-11-28 14:21:35
Context
2019-11-28
14:25
merged from tcltest check-in: a789d06e7e user: alex tags: trunk
14:21
enable benchmark Closed-Leaf check-in: 8fa48338f7 user: alex tags: tcltest
14:20
xl_read read formula patch; formatcell.test added cell data check check-in: 1c847e5dfb user: alex tags: tcltest
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/benchmark.test.

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
    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








<







 







<








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
    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