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

34 lines
1.1 KiB
Plaintext
Executable File

puts "TODO OCC12345 ALL: Faulty BUC60682"
puts "TODO OCC12345 ALL: Error : The area of result shape is"
puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
pload QAcommands
puts "=================="
puts "BUC60682"
puts "=================="
restore [locate_data_file buc60682a.brep] shell1
restore [locate_data_file buc60682b.brep] shell2
set che [checkshape shell1]
if { [regexp {Faulty} $che ] == 1 } {
puts "Faulty BUC60682 (shell 1): Source shape is invalid. It was detected by Checkshape command"
puts "Body of the script was NOT executed"
renamevar shell1 result
} else {
puts "BUC60682 OK (shell 1): Source shape is valid"
set che [checkshape shell2]
if { [regexp {Faulty} $che ] == 1 } {
puts "Faulty BUC60682 (shell 2): Source shape is invalid. It was detected by Checkshape command"
puts "Body of the script was NOT executed"
renamevar shell2 result
} else {
puts "BUC60682 OK (shell 2): Source shape is valid"
ksection result shell1 shell2 1000 0.0001 0.00001 0
}
}
checkprops result -s 0
checkshape result
checkview -display result -2d -path ${imagedir}/${test_image}.png