puts "============"
puts "OCC27302"
puts "============"
puts ""
###############################
## Invalid curves number in intersection result
###############################

set MaxTol 6.899054167648517e-007
set GoodNbCurv 1

restore [locate_data_file CTO900_pro12913a.rle] a
restore [locate_data_file CTO900_pro12913b.rle] b

explode a f
explode b f

smallview
don a_34 b_9
fit

set log [bopcurves a_34 b_9 -2d]

regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv

checkreal ToleranceReached ${Toler} ${MaxTol} 0.0 0.1

checkview -screenshot -2d -path ${imagedir}/${test_image}.png

if {${NbCurv} != ${GoodNbCurv}} {
  puts "Error: Number of curves is bad!"
  
  for {set i 1} {$i < ${NbCurv}} {incr i} {
    for {set j [expr $i+1]} {$j <= $NbCurv} {incr j} {
      mkedge e1 c_$i
      mkedge e2 c_$j
      
      dset dd_val 100.0*${Toler}
      distmini dd e1 e2
      
      if { [dval dd_val] > ${Toler} } {
        puts "Error: Intersection result is not closed"
      }
    }
  }
} else {
  checklength c_1 -l 86.536841230136204
}