tests/bugs/moddata/bug20404

   1 puts "========================"
   2 puts "OCC20404"
   3 puts "========================"
   4 puts ""
   5 #######################################################################
   6 # Command distmini gives wrong result for given shapes
   7 #######################################################################
   8
   9 set BugNumber OCC20404
  10
  11 restore [locate_data_file OCC20404-line1.brep] e1
  12 restore [locate_data_file OCC20404-line2.brep] e2
  13
  14 distmini d e1 e2
  15 puts "Distance=[dval d_val]"
  16
  17 if [expr [dval d_val] > 7.e-13] {
  18    set status 1
  19 } else {
  20    set status 0
  21 }
  22
  23 # Resume
  24 puts ""
  25 if { ${status} != 0 } {
  26    puts "Faulty ${BugNumber}"
  27 } else {
  28    puts "OK ${BugNumber}"
  29 }
  30