tests/bugs/iges/bug23377

   1 # Original bug : 23377
   2 # Date : 12 Aug 2012
   3
   4 set check_nb 7
   5 igesbrep [locate_data_file OCC23377-Input.igs] result *
   6 regexp {Number of Rational BSpline surfaces +([-0-9.+eE]+)} [expshape result 1 1] full nb
   7 if { ${nb} != ${check_nb} } {
   8     puts "Error : The Number of Rational BSpline surfaces is wrong!"
   9     puts "Error : It's $nb indtead of $check_nb!"
  10 }
  11 puts "Number of Rational BSpline surfaces is $nb"
  12 set 2dviewer 1
  13
  14
  15
  16
  17
  18
  19
  20
  21
  22
  23