tests/bugs/modalg_2/bug435

   1 pload QAcommands
   2
   3 #INTERFACE IGES
   4 puts "========================"
   5 puts " OCC435 "
   6 puts " OCC405 "
   7 puts "========================"
   8 puts ""
   9 ###############################################################
  10 ## Exception Standard_ConstructuionError is rased in DRAW in the
  11 ## GeomConvert_CompCurveToBSplineCurve on the attached shapes during command merge
  12 ###############################################################
  13
  14 restore [locate_data_file OCC435a.brep] a
  15 explode a
  16 set j 1
  17 repeat 8 {
  18     explode a_$j
  19     if { [catch {OCC405 result a_${j}_1 a_${j}_2} catch_result] } {
  20         puts "Faulty  OCC435 : merge operation was made incorrect"
  21     } else {
  22         puts " OCC435 OK:  merge operation was made properly"
  23     }
  24     incr j
  25 }
  26
  27 checkprops result -l 17.2848
  28 checkshape result
  29 checksection result
  30 checkview -display result -3d -path ${imagedir}/${test_image}.png