a20400b3 |
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 | } |