tests/bugs/modalg_5/bug25592

   1 puts "============"
   2 puts "OCC25592"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Bad result of Fillet operation
   7 ######################################################
   8
   9 restore [locate_data_file bug25592_tshape.brep] t
  10 explode t e
  11 shape c c
  12 add t_4 c
  13 add t_6 c
  14 fillet r t 30 c
  15 explode r f
  16
  17 set info1 [bopargcheck r_2 #f]
  18 if { [regexp "to be valid for BOP" ${info1}] == 1 } {
  19     puts "1. OK : Good result of Fillet operation\n"
  20 } else {
  21     puts "1. Error : Bad result of Fillet operation\n"
  22 }
  23
  24 set info2 [bopargcheck r_1 #f]
  25 if { [regexp "to be valid for BOP" ${info2}] == 1 } {
  26     puts "2. OK : Good result of Fillet operation\n"
  27 } else {
  28     puts "2. Error : Bad result of Fillet operation\n"
  29 }
  30
  31 set info3 [bopargcheck r_6 #f]
  32 if { [regexp "to be valid for BOP" ${info3}] == 1 } {
  33     puts "3. OK : Good result of Fillet operation\n"
  34 } else {
  35     puts "3. Error : Bad result of Fillet operation\n"
  36 }
  37
  38 set info4 [bopargcheck r_7 #f]
  39 if { [regexp "to be valid for BOP" ${info4}] == 1 } {
  40     puts "4. OK : Good result of Fillet operation\n"
  41 } else {
  42     puts "4. Error : Bad result of Fillet operation\n"
  43 }
  44
  45 set info5 [bopargcheck r_9 #f]
  46 if { [regexp "to be valid for BOP" ${info5}] == 1 } {
  47     puts "5. OK : Good result of Fillet operation\n"
  48 } else {
  49     puts "5. Error : Bad result of Fillet operation\n"
  50 }