tests/bugs/moddata/bug18541_2

   1 puts "============"
   2 puts "OCC18541"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Problem with GCPnts_UniformAbscissa class
   7 #######################################################################
   8
   9 set BugNumber OCC18541
  10
  11 set maxR 100
  12 set minR 50
  13 set NbPoints 10
  14
  15 set ResList [uniformAbscissaEl ${maxR} ${minR} ${NbPoints}]
  16
  17 if {[llength ${ResList}] > 15} {
  18    set CasCurve_NbPoints [lindex ${ResList} 15]
  19    puts "NbPoints = ${NbPoints}   CasCurve_NbPoints = ${CasCurve_NbPoints}"
  20    if { ${CasCurve_NbPoints} != ${NbPoints} } {
  21       puts "Faulty ${BugNumber}"
  22    } else {
  23       puts "OK ${BugNumber}"
  24    }
  25 } else {
  26    puts "Faulty ${BugNumber} : Bad draw command"
  27 }