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 | } |