1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-07 18:30:55 +03:00
ski a8676008f7 Adding of testing cases from subgroups 937 940 and 941 of CHL group
Splitting of subgroups bugs/modalg and bugs/moddata to optimise time of testing
Correction of end file in group v3d
Small correction of test case
2013-02-08 15:16:15 +04:00

24 lines
369 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"
}
set 2dviewer 0