tests/bugs/moddata_1/bug22303

   1 puts "========================"
   2 puts "OCC22303"
   3 puts "========================"
   4 puts ""
   5 #######################################################################
   6 # The algorithm BRepExtrema_DistShapeShape crashes with exception if one of the shapes does non contain vertices
   7 #######################################################################
   8
   9 set BugNumber OCC22303
  10
  11 line ll 0 20 0  1 0 0
  12 mkedge ee ll
  13 psphere ss 10
  14
  15 distmini dd ee ss
  16 puts "Distance=[dval dd_val]"
  17
  18 if [expr [dval dd_val] - 10. > 1.e-3 ] {
  19    set status 1
  20 } else {
  21    set status 0
  22 }
  23
  24 # Resume
  25 puts ""
  26 if { ${status} != 0 } {
  27    puts "Faulty ${BugNumber}"
  28 } else {
  29    puts "OK ${BugNumber}"
  30 }
  31