[occt.git] / tests / bugs / moddata_2 / bug909

puts "TODO OCC12345 ALL: Faulty OCC909"

pload QAcommands

puts "======="
puts "OCC909"
puts "======="
puts ""
#######################################################
## BRepTools_WireExplorer give different number of edges in dev and FIXOCC40
#######################################################

restore [locate_data_file OCC909_f.rle] f 
restore [locate_data_file OCC909_w.rle] w 

if { [ catch { set result [OCC909 w f] } ] } {
    puts "Faulty OCC909"
} else {
    set count 0
    regexp {Count = ()} $result full count
    if {$count != 2} {
	puts "Faulty OCC909"
    } else {
	puts "OCC909 OK"
    }
}
Commit	Line	Data
352ffd73	1	puts "TODO OCC12345 ALL: Faulty OCC909"
	2
	3	pload QAcommands
	4
	5	puts "======="
	6	puts "OCC909"
	7	puts "======="
	8	puts ""
	9	#######################################################
	10	## BRepTools_WireExplorer give different number of edges in dev and FIXOCC40
	11	#######################################################
	12
	13	restore [locate_data_file OCC909_f.rle] f
	14	restore [locate_data_file OCC909_w.rle] w
	15
	16	if { [ catch { set result [OCC909 w f] } ] } {
	17	puts "Faulty OCC909"
	18	} else {
	19	set count 0
	20	regexp {Count = ()} $result full count
	21	if {$count != 2} {
	22	puts "Faulty OCC909"
	23	} else {
	24	puts "OCC909 OK"
	25	}
	26	}
	27