[occt.git] / tests / bugs / moddata_1 / bug18541_2

puts "============"
puts "OCC18541"
puts "============"
puts ""
#######################################################################
# Problem with GCPnts_UniformAbscissa class
#######################################################################

set BugNumber OCC18541

set maxR 100
set minR 50
set NbPoints 10

set ResList [uniformAbscissaEl ${maxR} ${minR} ${NbPoints}]

if {[llength ${ResList}] > 15} {
   set CasCurve_NbPoints [lindex ${ResList} 15]
   puts "NbPoints = ${NbPoints}   CasCurve_NbPoints = ${CasCurve_NbPoints}"
   if { ${CasCurve_NbPoints} != ${NbPoints} } {
      puts "Faulty ${BugNumber}"
   } else {
      puts "OK ${BugNumber}"
   }
} else {
   puts "Faulty ${BugNumber} : Bad draw command"
}
Commit	Line	Data
3bea4c16	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	}