1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-05 18:16:23 +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
366 B
Plaintext
Executable File

pload QAcommands
puts "========"
puts "OCC525"
puts "========"
puts ""
#########################################
## Bug in GeomPlate_BuildPlateSurface::ComputeSurfInit()
#########################################
set mistake 0
decho off
if { [catch { OCC525 } ] } {
set mistake 1
}
decho on
if { $mistake == 1 } {
puts "Faulty : OCC525"
}
set 2dviewer 1