mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
5ae01c8551
Test for sewing command were updated to check reference information. Commands for testing were moved to the file src/DrawResources/CheckCommands.tcl Documentation overview was updated.
35 lines
759 B
Plaintext
Executable File
35 lines
759 B
Plaintext
Executable File
puts "========"
|
|
puts "OCC36"
|
|
puts "========"
|
|
|
|
pload XDE
|
|
|
|
set filepath [locate_data_file OCC36.igs]
|
|
if [catch { igesbrep $filepath a * } res] {
|
|
puts "Error OCC36: here is reading problem"
|
|
} else {
|
|
puts "Reading OCC36 OK"
|
|
|
|
tpcompound r
|
|
dchrono h2 reset
|
|
dchrono h2 start
|
|
sewing result 1.e-7 r
|
|
dchrono h2 stop
|
|
set q2 [ dchrono h2 show ]
|
|
regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
|
|
puts "$z2"
|
|
if { $z2 > 30 } {
|
|
puts "Elapsed time is more then 30 seconds - Faulty"
|
|
} else {
|
|
puts "Elapsed time is less then 30 seconds - OK"
|
|
}
|
|
|
|
checkmaxtol result 2.5472812372261969e-005
|
|
checknbshapes result -shell 13
|
|
checkfreebounds result 1249
|
|
}
|
|
|
|
set 2dviewer 0
|
|
|
|
|