5 ###############################
6 ## Invalid curve on surface in the result of General Fuse operation
7 ###############################
9 restore [locate_data_file bug27129_e.brep] e
10 restore [locate_data_file bug27129_p.brep] p
11 restore [locate_data_file bug27129_q.brep] q
19 set log [bopargcheck result #f]
22 "Faulties for FIRST shape found : 1"
23 "Shapes are not suppotrted by BOP: NO"
24 "Self-Intersections : NO"
25 "Check for SI has been aborted : NO"
26 "Too small edges : NO"
28 "Too close vertices : DISABLED"
29 "Too close edges : DISABLED"
30 "Shapes with Continuity C0 : NO"
31 "Invalid Curve on Surface : YES Cases\\(1\\) Total shapes\\(2\\)"
32 "Faulties for SECOND shape found : 0"
35 for {set i 1} {$i <= 11} {incr i} {
36 set str [ lindex ${MessageList} [expr $i - 1] ]
37 if { [regexp ${str} ${log}] == 1 } {
38 puts "OK : There is #$i message"
40 puts "Error : There is not #$i message"
45 checkprops result -s 81576.6
47 set nbshapes_expected "
48 Number of shapes in shape
59 checknbshapes result -ref ${nbshapes_expected} -t -m "solid construction"
61 checkview -display result -2d -path ${imagedir}/${test_image}.png