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

pload QAcommands

puts "================"
puts "OCC454"
puts "================"
puts ""

restore [locate_data_file OCC454_b1.brep] b1 
checkshape b1

restore [locate_data_file OCC454_p1.draw] p1 

set info_result [OCC299 b1 p1]
set ll [llength ${info_result}]
if { ${ll} < 4 } {
    puts "OCC454: ERROR 1"
} else {
    if { [regexp {IN} ${info_result}] } {
	puts "OCC454: OK"
    } else {
	puts "OCC454: ERROR 2"
    }
}
Commit	Line	Data
61c421bf	1	pload QAcommands
	2
	3	puts "================"
	4	puts "OCC454"
	5	puts "================"
	6	puts ""
	7
	8	restore [locate_data_file OCC454_b1.brep] b1
	9	checkshape b1
	10
	11	restore [locate_data_file OCC454_p1.draw] p1
	12
	13	set info_result [OCC299 b1 p1]
	14	set ll [llength ${info_result}]
	15	if { ${ll} < 4 } {
	16	puts "OCC454: ERROR 1"
	17	} else {
	18	if { [regexp {IN} ${info_result}] } {
	19	puts "OCC454: OK"
	20	} else {
	21	puts "OCC454: ERROR 2"
	22	}
	23	}
	24
	25