1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-03 17:56:21 +03:00
occt/tests/bugs/caf/bug669
apn 352ffd7358 Adding test cases for chl grid
Test case tests/bugs/modalg/dxf906 was renamed to bug889
Adding test cases to tests/bugs/moddata
Modified expressions puts [checkshape result]. Added command vzfit in end file in folder bugs. Unlocked command coordload in QABugs_3.cxx
Modified test case bugs vis buc60738
Added test cases to modalg and moddata
Added test cases to caf and fclasses
Added test cases to group heal
2012-12-21 16:39:38 +04:00

163 lines
7.6 KiB
Plaintext
Executable File

puts "All exceptions is OK"
puts "TODO OCC12345 ALL: An exception was caught"
puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
puts "========"
puts "OCC669"
puts "========"
puts ""
#########################################
## Standard_GUID("HoleFeature") cause stack overwrite
#########################################
pload QAcommands
set GoodGUIDList [list 00000000-0000-0000-0000-000000000000 \
\
0000000A-0000-0000-0000-000000000000 \
0000000B-0000-0000-0000-000000000000 \
0000000C-0000-0000-0000-000000000000 \
0000000D-0000-0000-0000-000000000000 \
0000000E-0000-0000-0000-000000000000 \
0000000F-0000-0000-0000-000000000000 \
\
0000000a-0000-0000-0000-000000000000 \
0000000b-0000-0000-0000-000000000000 \
0000000c-0000-0000-0000-000000000000 \
0000000d-0000-0000-0000-000000000000 \
0000000e-0000-0000-0000-000000000000 \
0000000f-0000-0000-0000-000000000000 \
\
00000000-000A-0000-0000-000000000000 \
00000000-000B-0000-0000-000000000000 \
00000000-000C-0000-0000-000000000000 \
00000000-000D-0000-0000-000000000000 \
00000000-000E-0000-0000-000000000000 \
00000000-000F-0000-0000-000000000000 \
\
00000000-000a-0000-0000-000000000000 \
00000000-000b-0000-0000-000000000000 \
00000000-000c-0000-0000-000000000000 \
00000000-000d-0000-0000-000000000000 \
00000000-000e-0000-0000-000000000000 \
00000000-000f-0000-0000-000000000000 \
\
00000000-0000-000A-0000-000000000000 \
00000000-0000-000B-0000-000000000000 \
00000000-0000-000C-0000-000000000000 \
00000000-0000-000D-0000-000000000000 \
00000000-0000-000E-0000-000000000000 \
00000000-0000-000F-0000-000000000000 \
\
00000000-0000-000a-0000-000000000000 \
00000000-0000-000b-0000-000000000000 \
00000000-0000-000c-0000-000000000000 \
00000000-0000-000d-0000-000000000000 \
00000000-0000-000e-0000-000000000000 \
00000000-0000-000f-0000-000000000000 \
\
00000000-0000-0000-000A-000000000000 \
00000000-0000-0000-000B-000000000000 \
00000000-0000-0000-000C-000000000000 \
00000000-0000-0000-000D-000000000000 \
00000000-0000-0000-000E-000000000000 \
00000000-0000-0000-000F-000000000000 \
\
00000000-0000-0000-000a-000000000000 \
00000000-0000-0000-000b-000000000000 \
00000000-0000-0000-000c-000000000000 \
00000000-0000-0000-000d-000000000000 \
00000000-0000-0000-000e-000000000000 \
00000000-0000-0000-000f-000000000000 \
\
00000000-0000-0000-0000-00000000000A \
00000000-0000-0000-0000-00000000000B \
00000000-0000-0000-0000-00000000000C \
00000000-0000-0000-0000-00000000000D \
00000000-0000-0000-0000-00000000000E \
00000000-0000-0000-0000-00000000000F \
\
00000000-0000-0000-0000-00000000000a \
00000000-0000-0000-0000-00000000000b \
00000000-0000-0000-0000-00000000000c \
00000000-0000-0000-0000-00000000000d \
00000000-0000-0000-0000-00000000000e \
00000000-0000-0000-0000-00000000000f ]
set BadGUIDList [list \
\
0000000G-0000-0000-0000-000000000000 \
0000000g-0000-0000-0000-000000000000 \
\
00000000-000G-0000-0000-000000000000 \
00000000-000g-0000-0000-000000000000 \
\
00000000-0000-000G-0000-000000000000 \
00000000-0000-000g-0000-000000000000 \
\
00000000-0000-0000-000G-000000000000 \
00000000-0000-0000-000g-000000000000 \
\
00000000-0000-0000-0000-00000000000G \
00000000-0000-0000-0000-00000000000g \
\
000000000000000000000000000000000000 \
0000000000000000000000000000000000000 \
00000000000000000000000000000000000 \
\
0000000000000-0000-0000-000000000000 \
00000000-000000000-0000-000000000000 \
00000000-0000-000000000-000000000000 \
00000000-0000-0000-00000000000000000 \
\
000000000-0000-0000-0000-000000000000 \
0000000-0000-0000-0000-000000000000 \
\
00000000-00000-0000-0000-000000000000 \
00000000-000-0000-0000-000000000000 \
\
00000000-0000-00000-0000-000000000000 \
00000000-0000-000-0000-000000000000 \
\
00000000-0000-0000-00000-000000000000 \
00000000-0000-0000-000-000000000000 \
\
00000000-0000-0000-0000-0000000000000 \
00000000-0000-0000-0000-00000000000 \
\
"" ]
set IsOK 1
set i 0
foreach GUID ${GoodGUIDList} {
incr i
if [catch { OCC669 ${GUID} }] then {
set IsOK 0
puts "GUID=\"${GUID}\""
puts "Faulty OCC669 (case ${i})"
} else {
puts "OCC669 OK (case ${i})"
}
}
foreach GUID ${BadGUIDList} {
incr i
if [catch { OCC669 ${GUID} }] then {
puts "OCC669 OK (case ${i})"
} else {
set IsOK 0
puts "GUID=\"${GUID}\""
puts "Faulty OCC669 (case ${i})"
}
}
if { ${IsOK} == 1} {
puts "OCC669 OK"
} else {
puts "Faulty OCC669"
}