mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-07 18:30:55 +03:00
fb60057d23
Command tolmax was removed. Tcl command checkmaxtol is used now in test cases to check maximum tolerance. Reference values in test cases were updated.
35 lines
760 B
Plaintext
Executable File
35 lines
760 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 -ref 0.96087447225733291
|
|
checknbshapes result -shell 13
|
|
checkfreebounds result 1247
|
|
}
|
|
|
|
set 2dviewer 0
|
|
|
|
|