tests/bugs/moddata/bug525

   1 pload QAcommands
   2
   3 puts "========"
   4 puts "OCC525"
   5 puts "========"
   6 puts ""
   7 #########################################
   8 ## Bug in GeomPlate_BuildPlateSurface::ComputeSurfInit()
   9 #########################################
  10
  11 set mistake 0
  12
  13 decho off
  14 if { [catch { OCC525 } ] } {
  15     set mistake 1
  16 }
  17 decho on
  18
  19 if { $mistake == 1 } {
  20     puts "Faulty : OCC525"
  21 }
  22
  23 set 2dviewer 1