352ffd73 |
1 | puts "============" |
2 | puts "OCC7639" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # NCollection_Vector works incorrectly with rare data |
7 | ####################################################################### |
8 | |
9 | pload QAcommands |
10 | set BugNumber OCC7639 |
11 | |
12 | set List [OCC7639 0 1 2 500 1 2] |
13 | |
14 | set Length [llength $List] |
15 | if { ${Length} != 6} { |
16 | puts "Faulty (1) ${BugNumber}" |
17 | } else { |
18 | if { [regexp "1" $List] != 1 } { |
19 | puts "Faulty (2) ${BugNumber}" |
20 | } |
21 | if { [regexp "2" $List] != 1 } { |
22 | puts "Faulty (3) ${BugNumber}" |
23 | } |
24 | if { [regexp "500" $List] != 1 } { |
25 | puts "Faulty (4) ${BugNumber}" |
26 | } |
27 | } |