[occt.git] / tests / bugs / fclasses / bug7639

puts "============"
puts "OCC7639"
puts "============"
puts ""
#######################################################################
# NCollection_Vector works incorrectly with rare data
#######################################################################

pload QAcommands
set BugNumber OCC7639

set List [OCC7639 0 1 2 500 1 2]

set Length [llength $List]
if { ${Length} != 6} {
    puts "Faulty (1) ${BugNumber}"
} else {
    if { [regexp "1" $List] != 1 } {
	puts "Faulty (2) ${BugNumber}"
    }
    if { [regexp "2" $List] != 1 } {
	 puts "Faulty (3) ${BugNumber}"
    }
    if { [regexp "500" $List] != 1 } {
	puts "Faulty (4) ${BugNumber}"
    }
}
Commit	Line	Data
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	}