Adding test cases from chl grid
[occt.git] / tests / bugs / moddata / 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