mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
a8676008f7
Splitting of subgroups bugs/modalg and bugs/moddata to optimise time of testing Correction of end file in group v3d Small correction of test case
32 lines
479 B
Plaintext
Executable File
32 lines
479 B
Plaintext
Executable File
|
|
puts "================"
|
|
puts "BUC61035"
|
|
puts "OCC107"
|
|
puts "================"
|
|
puts ""
|
|
|
|
restore [locate_data_file OCC107-1.brep] ee
|
|
checkshape ee
|
|
restore [locate_data_file OCC107-2.brep] ff
|
|
checkshape ff
|
|
|
|
distmini dd1 ee ff
|
|
|
|
mkcurve cc ee
|
|
cvalue cc 0 x y z
|
|
vertex vv x y z
|
|
|
|
distmini dd2 vv ff
|
|
|
|
set d1 [dset t dd1_val]
|
|
set d2 [dset t dd2_val]
|
|
|
|
if { [expr abs([expr $d1 - $d2])] > 0.1} then {
|
|
puts "Faulty :WRONG computation of distances."
|
|
} else {
|
|
puts "All is OK"
|
|
}
|
|
|
|
|
|
|