1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-04 18:06:22 +03:00
ski 5747059b21 0026833: Create command checkview containing all viewer types
Created command checkview for displaying shapes.
2016-02-05 11:14:37 +03:00

24 lines
420 B
Plaintext
Executable File

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"
}
checkview -display result -2d -path ${imagedir}/${test_image}.png