tests/bugs/moddata_1/bug18541_1

   1 puts "============"
   2 puts "OCC18541"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Problem with GCPnts_UniformAbscissa class
   7 #######################################################################
   8
   9 set BugNumber OCC18541
  10
  11 restore [locate_data_file OCC18541.brep] b-curve
  12
  13 set NbPoints 10
  14
  15 mkcurve res b-curve
  16
  17 set ResList [uniformAbscissa res ${NbPoints}]
  18
  19 if {[llength ${ResList}] > 15} {
  20    set CasCurve_NbPoints [lindex ${ResList} 15]
  21    puts "NbPoints = ${NbPoints}   CasCurve_NbPoints = ${CasCurve_NbPoints}"
  22    if { ${CasCurve_NbPoints} != ${NbPoints} } {
  23       puts "Faulty ${BugNumber}"
  24    } else {
  25       puts "OK ${BugNumber}"
  26    }
  27 } else {
  28    puts "Faulty ${BugNumber} : Bad draw command"
  29 }
  30