0023733: PCurve for edge on face creation failure
[occt.git] / tests / bugs / moddata / bug23733
1 puts "================"
2 puts "CR23733"
3 puts "================"
4 puts ""
5 ###############################################
6 ## PCurve for edge on face creation failure
7 ###############################################
8
9 pload DCAF TOPTEST
10
11 Open [locate_data_file bug_glue_edges_GEOM.sgd] D
12
13 GetShape D 0:1:9686:1:1:2 s1
14 GetShape D 0:1:9449:1:1:2 s2
15 explode s1 e
16 explode s2 f
17
18 #should create pcurve
19 bhaspc s1_100 s2_2 do
20 #should report OK
21 set info1 [bhaspc s1_100 s2_2]
22 if { [regexp {No} ${info1}] == 1 } {
23     puts "Faulty: No 2D curves detected"
24 }
25
26 #should create pcurve
27 bhaspc s1_40 s2_54 do
28 #should report OK
29 set info2 [bhaspc s1_40 s2_54]
30 if { [regexp {No} ${info2}] == 1 } {
31     puts "Faulty: No 2D curves detected"
32 }
33
34 #should create pcurve
35 bhaspc s1_22 s2_123 do
36 #should report OK
37 set info3 [bhaspc s1_22 s2_123]
38 if { [regexp {No} ${info3}] == 1 } {
39     puts "Faulty: No 2D curves detected"
40 }