[occt.git] / tests / bugs / modalg_1 / buc60463

puts "TODO OCC12345 ALL: Error : The length of result shape is"
puts "TODO OCC12345 ALL: Faulty : Section is incorrect"

puts "============="
puts "BUC60463"
puts "============="
puts "Section"
puts ""
cpulimit 1400
restore [locate_data_file buc60463a.brep] a 
checkshape a
restore [locate_data_file buc60463b.brep] b
checkshape b
bsection result a b

regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full cs
if { $cs != 0 } {
    puts "Faulty : Section is incorrect"
}
set length 0
set 2dviewer 0
Commit	Line	Data
a87752f3	1	puts "TODO OCC12345 ALL: Error : The length of result shape is"
	2	puts "TODO OCC12345 ALL: Faulty : Section is incorrect"
	3
	4	puts "============="
	5	puts "BUC60463"
	6	puts "============="
	7	puts "Section"
	8	puts ""
	9	cpulimit 1400
	10	restore [locate_data_file buc60463a.brep] a
352ffd73	11	checkshape a
a87752f3	12	restore [locate_data_file buc60463b.brep] b
352ffd73	13	checkshape b
a87752f3	14	bsection result a b
	15
	16	regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full cs
	17	if { $cs != 0 } {
	18	puts "Faulty : Section is incorrect"
	19	}
	20	set length 0
	21	set 2dviewer 0
	22