1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-06-10 11:34:06 +03:00
occt/tests/bugs/xde/bug6366

44 lines
1.0 KiB
Plaintext
Executable File

puts "============"
puts "OCC6366"
puts "============"
puts ""
######################################################
# FixShape does not fix an edge with invalid SameRange flag
######################################################
set BugNumber OCC6366
restore [locate_data_file BUC60393.rle] a
decho off
if {[checkshape a] != "This shape seems to be valid"} {
puts "Info: we see that the initial shape is bad"
}
decho on
puts "launching fixshape..."
fixshape result a
set err 0
decho off
if {[checkshape result] != "This shape seems to be valid"} {
puts "Info: we see that the fixed shape is bad too"
puts "launching fsameparameter..."
set err 1
fsameparameter result
if {[checkshape result] == "This shape seems to be valid"} {
puts "Info: we see that fsameparameter fixed the shape completely"
} else {
puts "Info: we see that the fixed shape after fsameparameter is bad too"
}
}
decho on
if { ${err} == 0 } {
puts "OK ${BugNumber}"
} else {
puts "Faulty ${BugNumber}"
}
set 2dviewer 0