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 }