1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-04 18:06:22 +03:00
occt/tests/bugs/moddata_2/bug22746_1
ski 5747059b21 0026833: Create command checkview containing all viewer types
Created command checkview for displaying shapes.
2016-02-05 11:14:37 +03:00

44 lines
892 B
Plaintext
Executable File

puts "============"
puts "OCC22746"
puts "============"
puts ""
###########################################################################
# Progress indicator in ShapeHealing
###########################################################################
set BugNumber OCC22746
catch { pload XSDRAW }
restore [locate_data_file OCC22746-om.brep] a
vinit
XProgress -t
set List1 [fixshape result a]
puts "----------------------"
XProgress +t
set List2 [fixshape result a]
set status 0
if { ${List1} != ${List2}} {
set status 0
} else {
set status 1
}
if { [ regexp {Progress:} $List2 ] } {
puts "${BugNumber} OK"
set status 0
} else {
puts "${BugNumber} Faulty"
set status 1
}
if { $status != 0 } {
puts "Faulty $BugNumber"
} else {
puts "OK $BugNumber"
}
checkview -display result -3d -path ${imagedir}/${test_image}.png
checkprops result -s 16473.3