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

24 lines
610 B
Plaintext
Executable File

puts "================"
puts "OCC25823"
puts "================"
puts ""
#######################################################################################
# Self Intersecting wire translated from STEP file
#######################################################################################
set BugNumber OCC25823
set aFile [locate_data_file bug25823_280612.stp]
stepread $aFile a *
set aLog [checkshape a_1]
if {$aLog == "This shape seems to be valid" } {
puts "OK ${BugNumber}"
} else {
puts "Faulty ${BugNumber}"
}
smallview
fit
checkview -screenshot -2d -path ${imagedir}/${test_image}.png