mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
36 lines
729 B
Plaintext
Executable File
36 lines
729 B
Plaintext
Executable File
puts "============"
|
|
puts "OCC24005"
|
|
puts "============"
|
|
puts ""
|
|
###############################
|
|
## Intersecting a slightly off angle plane with a cylinder takes 7+ seconds
|
|
###############################
|
|
|
|
pload QAcommands
|
|
|
|
dchrono h reset
|
|
dchrono h start
|
|
|
|
OCC24005 result
|
|
|
|
dchrono h stop
|
|
set q [dchrono h show]
|
|
|
|
regexp {CPU user time: ([-0-9.+eE]+) seconds} $q full z
|
|
puts "$z"
|
|
|
|
set max_time 0.4
|
|
if { $z > ${max_time} } {
|
|
puts "Elapsed time is more than ${max_time} seconds - Faulty"
|
|
} else {
|
|
puts "Elapsed time is less than ${max_time} seconds - OK"
|
|
}
|
|
|
|
if { [regexp {Ellipse} [dump result]] == 1 } {
|
|
puts "result is OK"
|
|
} else {
|
|
puts "result is Faulty"
|
|
}
|
|
|
|
set 2dviewer 1
|