mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
d99f0355e3
Draw_Interpretor, CommandCmd() - catched exceptions and messages put into Tcl string result before throwing a Tcl exception (return 1) are now print in intense red (using Message::SendFail()). Duplication of exception message in std::cout and Tcl output has been removed. Draw Harness plugins have been updated to use either Message::SendFail() or theDI instead of std::cout/std::cerr for printing colored error message before throwing a Tcl exception.
24 lines
923 B
Plaintext
24 lines
923 B
Plaintext
puts "TODO OCC23343 ALL: An exception was caught"
|
|
puts "TODO OCC23343 ALL: Faulty OCC23343"
|
|
|
|
puts "============"
|
|
puts "0023343: Crash (A C C E S S V I O L A T I O N) in GeomPlate_BuildPlateSurface / MakeApprox if init Surface is set"
|
|
puts "============"
|
|
puts ""
|
|
|
|
restore [locate_data_file bug23343_initFace.brep] initFace
|
|
restore [locate_data_file bug23343_edge_constraint.brep] edge_constraint
|
|
|
|
point p1 30 -33.4729635533385 49.7661550602442
|
|
point p2 30 -49.6961550602442 33.3929635533386
|
|
point p3 23.3333333333333 -50 30.07
|
|
point p4 -30 -33.4729635533386 49.6161550602442
|
|
|
|
if [catch {gplate result 1 4 initFace edge_constraint 0 p1 p2 p3 p4} catch_result] {
|
|
puts "Faulty OCC23343: there is crash (ACCESS VIOLATION) in GeomPlate_BuildPlateSurface"
|
|
} else {
|
|
puts "OK OCC23343: there is not crash (ACCESS VIOLATION) in GeomPlate_BuildPlateSurface"
|
|
}
|
|
|
|
checkview -display result -2d -path ${imagedir}/${test_image}.png
|