tests/bugs/modalg_4/bug6811

   1 #INTERFACE STEP
   2 puts "================"
   3 puts "OCC6811"
   4 puts "================"
   5 puts ""
   6 #######################################################################################
   7 # Unstable work of the checkshape on the attached file.
   8 #######################################################################################
   9
  10 catch { pload XDE }
  11
  12 set BugNumber OCC6811
  13
  14 set filepath [locate_data_file trj12_b3-tu-203.stp]
  15 if { [catch { stepread $filepath a * } catch_result] } {
  16     puts "Faulty ${BugNumber} : here is reading problem"
  17 } else {
  18     decho off
  19     set che_a_1 [checkshape a_1 f]
  20     set che_a_2 [checkshape a_1 f]
  21     decho on
  22     if { [regexp {Faulty} $che_a_1] } {
  23         puts "Faulty ${BugNumber} : checkshape 1 is wrong for a"
  24     }
  25     if { [regexp {Faulty} $che_a_2] } {
  26         puts "Faulty ${BugNumber} : checkshape 2 is wrong for a"
  27     }
  28
  29     renamevar a_1 result
  30 }
  31
  32 set square 1.48021e+06
  33 set 2dviewer 0