[occt.git] / tests / bugs / modalg_2 / bug405

pload QAcommands

puts "================"
puts "OCC405"
puts "OCC435"
puts "SAM1296"
puts "================"
puts ""

restore [locate_data_file OCC395-1.brep] e1 
restore [locate_data_file OCC405-2.brep] e2 

checkshape e1
checkshape e2

OCC405 result e1 e2

regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num

if { $num == 2 } {
    puts "OCC405 OK : Result shape is CORRECT !!! "
} else {
    puts " Faulty OCC405: Result shape is INcorrect !!! "
}

set length 17.5348
set 2dviewer 0
Commit	Line	Data
61c421bf	1	pload QAcommands
	2
	3	puts "================"
	4	puts "OCC405"
	5	puts "OCC435"
	6	puts "SAM1296"
	7	puts "================"
	8	puts ""
	9
	10	restore [locate_data_file OCC395-1.brep] e1
	11	restore [locate_data_file OCC405-2.brep] e2
	12
	13	checkshape e1
	14	checkshape e2
	15
	16	OCC405 result e1 e2
	17
	18	regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num
	19
	20	if { $num == 2 } {
	21	puts "OCC405 OK : Result shape is CORRECT !!! "
	22	} else {
	23	puts " Faulty OCC405: Result shape is INcorrect !!! "
	24	}
	25
	26	set length 17.5348
	27	set 2dviewer 0