Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / buc60853
1 puts "TODO OCC12345 ALL: Tcl Exception: Error: file BUC60853_plane.brep could not be found"
2 puts "TODO OCC12345 ALL: TEST INCOMPLETE"
3
4 puts "========"
5 puts "BUC60853"
6 puts "========"
7 puts ""
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 ###############################################################################
13
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]
18
19 bsection result face plane -a
20
21
22 # set text [nbshapes  res]
23 # set ver [lindex $text 7]
24 # set edg [lindex $text 10]
25 # set com [lindex $text 28]
26
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
30
31 # if { $com != 0} {
32 # puts " Faulty BUC60853: Result shape is COMPOUND, but it must be edge "
33 # set make_photo 0
34 # } else {
35 if { $edg != 1} {
36     puts " Faulty BUC60853: Result shape contains more than one edge "
37     explode res v 
38 } else {
39     if { $ver < 2} {
40         puts " Faulty BUC60853: Result edge contains less than two vertexes."
41         explode res v 
42     } else {
43         puts " BUC60853 OK: Result of section operation is correct "
44         explode res v
45     }
46 }
47 #}
48 set length 0
49 set 2dviewer 0