Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / bug251_1
1 pload QAcommands
2
3 puts "================"
4 puts "OCC251"
5 puts "================"
6 puts ""
7 ###########################################################
8 ## Section of two faces f1 and f2 depends on order of arguments:  section r1 f1 f2 and
9 ##  section r2 f2 f1 give different results, one of result is invalid - overlapped edges.
10 ###########################################################
11
12 restore [locate_data_file OCC251.brep] f 
13 explode f
14 puts [checkshape f_1]
15 puts [checkshape f_2]
16
17 bsection result f_1 f_2
18 explode result
19
20 set status [OCC333 result_1 result_2]
21 if {[llength ${status}] < 1} {
22     puts "OCC251 ERROR"
23 } else {
24     regexp {([-0-9.+eE]+)} $status full code
25     if { ${code} == 3 || ${code} == 2} {
26         puts "OCC251 OK  (case 1) : Section command works properly"
27     } else {
28         puts "Faulty OCC251 (case 1): Section was made WRONGLY"
29     }
30 }
31
32 set length 1.
33 set 2dviewer 0