tests/bugs/iges/bug22820

   1 puts "================"
   2 puts "OCC22820"
   3 puts "================"
   4 puts ""
   5 #######################################################################################
   6 # OCCT IGES writer loses plane information
   7 ######################################################################################
   8
   9 box b 1 1 1
  10 set b_info [dump b]
  11 if { [regexp BSplineSurface ${b_info}] } {
  12    puts "Error in dump b"
  13 }
  14
  15 brepiges b ${imagedir}/22820.igs
  16 igesbrep ${imagedir}/22820.igs bb *
  17
  18 set types_info [listtypes]
  19 puts "types_info=${types_info}"
  20 if { [regexp BSplineSurface ${types_info}] } {
  21    puts "Error in listtypes"
  22 }
  23
  24 igesbrep ${imagedir}/22820.igs bb *
  25 set bb_info [dump bb]
  26 if { [regexp BSplineSurface ${bb_info}] } {
  27    puts "Error in dump bb"
  28 }