tests/bugs/modalg/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 if { [catch { stepread [locate_data_file trj12_b3-tu-203.stp] a * } catch_result] } {
  15     puts "Faulty ${BugNumber} : here is reading problem"
  16 } else {
  17     decho off
  18     set che_a_1 [checkshape a_1 f]
  19     set che_a_2 [checkshape a_1 f]
  20     decho on
  21     if { [regexp {Faulty} $che_a_1] } {
  22         puts "Faulty ${BugNumber} : checkshape 1 is wrong for a"
  23     }
  24     if { [regexp {Faulty} $che_a_2] } {
  25         puts "Faulty ${BugNumber} : checkshape 2 is wrong for a"
  26     }
  27
  28     renamevar a_1 result
  29 }
  30
  31 set square 1.48021e+06
  32 set 2dviewer 0