tests/bugs/fclasses/bug7639

   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 }