1 puts "TODO OCC12345 ALL: Tcl Exception: Error: file BUC60853_plane.brep could not be found"
2 puts "TODO OCC12345 ALL: TEST INCOMPLETE"
8 ###############################################################################
9 ##The exception Standard_NumericError is generated in the function TopOpeBRepTool_CurveTool::MakeCurves().
10 ## The error occurs only when approximate mode is switched on. The command in draw is :
11 ## > section res err_face.brep err_plane.brep -a
12 ###############################################################################
14 restore [locate_data_file BUC60853_face.brep] face
15 restore [locate_data_file BUC60853_plane.brep] plane
16 puts [checkshape face]
17 puts [checkshape plane]
19 bsection result face plane -a
22 # set text [nbshapes res]
23 # set ver [lindex $text 7]
24 # set edg [lindex $text 10]
25 # set com [lindex $text 28]
27 set nb_info [nbshapes result]
28 regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ver
29 regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full edg
32 # puts " Faulty BUC60853: Result shape is COMPOUND, but it must be edge "
36 puts " Faulty BUC60853: Result shape contains more than one edge "
40 puts " Faulty BUC60853: Result edge contains less than two vertexes."
43 puts " BUC60853 OK: Result of section operation is correct "