[occt.git] / tests / bugs / moddata_1 / bug1048

puts "================"
puts "OCC1048"
puts "================"
puts ""

pload QAcommands

restore [locate_data_file OCC1048.brep] result

set list [OCC1048 result]

set NBTRIANGLES 0
regexp {Info: +Number +of +triangles += +([-0-9.+eE]+)} $list full NBTRIANGLES

if { ${NBTRIANGLES} > 0 } {
    puts "OCC1048: OK"
} else {
    puts "OCC1048: Error"
}

set 2dviewer 0
Commit	Line	Data
352ffd73	1	puts "================"
	2	puts "OCC1048"
	3	puts "================"
	4	puts ""
	5
	6	pload QAcommands
	7
	8	restore [locate_data_file OCC1048.brep] result
	9
	10	set list [OCC1048 result]
	11
	12	set NBTRIANGLES 0
	13	regexp {Info: +Number +of +triangles += +([-0-9.+eE]+)} $list full NBTRIANGLES
	14
	15	if { ${NBTRIANGLES} > 0 } {
	16	puts "OCC1048: OK"
	17	} else {
	18	puts "OCC1048: Error"
	19	}
	20
	21	set 2dviewer 0
	22
	23