mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
395d00e058
- Extended command Close with an option -silent
- Extended command Close to handle */-ALL for closing ALL document
- Replaced catch {Close D} by Close D -silent in tests
20 lines
427 B
Plaintext
20 lines
427 B
Plaintext
puts "================"
|
|
puts "OCC5023"
|
|
puts "================"
|
|
puts ""
|
|
######################################################
|
|
# Performance regression in opening OCAF file
|
|
######################################################
|
|
|
|
set aFile [locate_data_file OCC5023.std]
|
|
|
|
puts "Info: Restore the document"
|
|
|
|
if [info exists DD] {
|
|
Close DD -silent; unset DD
|
|
}
|
|
|
|
dchrono h restart
|
|
|
|
Open ${aFile} DD
|
|
dchrono h stop counter OpenDoc |