1 puts "All exceptions is OK"
2 puts "TODO OCC12345 ALL: An exception was caught"
3 puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
9 #########################################
10 ## Standard_GUID("HoleFeature") cause stack overwrite
11 #########################################
15 set GoodGUIDList [list 00000000-0000-0000-0000-000000000000 \
17 0000000A-0000-0000-0000-000000000000 \
18 0000000B-0000-0000-0000-000000000000 \
19 0000000C-0000-0000-0000-000000000000 \
20 0000000D-0000-0000-0000-000000000000 \
21 0000000E-0000-0000-0000-000000000000 \
22 0000000F-0000-0000-0000-000000000000 \
24 0000000a-0000-0000-0000-000000000000 \
25 0000000b-0000-0000-0000-000000000000 \
26 0000000c-0000-0000-0000-000000000000 \
27 0000000d-0000-0000-0000-000000000000 \
28 0000000e-0000-0000-0000-000000000000 \
29 0000000f-0000-0000-0000-000000000000 \
31 00000000-000A-0000-0000-000000000000 \
32 00000000-000B-0000-0000-000000000000 \
33 00000000-000C-0000-0000-000000000000 \
34 00000000-000D-0000-0000-000000000000 \
35 00000000-000E-0000-0000-000000000000 \
36 00000000-000F-0000-0000-000000000000 \
38 00000000-000a-0000-0000-000000000000 \
39 00000000-000b-0000-0000-000000000000 \
40 00000000-000c-0000-0000-000000000000 \
41 00000000-000d-0000-0000-000000000000 \
42 00000000-000e-0000-0000-000000000000 \
43 00000000-000f-0000-0000-000000000000 \
45 00000000-0000-000A-0000-000000000000 \
46 00000000-0000-000B-0000-000000000000 \
47 00000000-0000-000C-0000-000000000000 \
48 00000000-0000-000D-0000-000000000000 \
49 00000000-0000-000E-0000-000000000000 \
50 00000000-0000-000F-0000-000000000000 \
52 00000000-0000-000a-0000-000000000000 \
53 00000000-0000-000b-0000-000000000000 \
54 00000000-0000-000c-0000-000000000000 \
55 00000000-0000-000d-0000-000000000000 \
56 00000000-0000-000e-0000-000000000000 \
57 00000000-0000-000f-0000-000000000000 \
59 00000000-0000-0000-000A-000000000000 \
60 00000000-0000-0000-000B-000000000000 \
61 00000000-0000-0000-000C-000000000000 \
62 00000000-0000-0000-000D-000000000000 \
63 00000000-0000-0000-000E-000000000000 \
64 00000000-0000-0000-000F-000000000000 \
66 00000000-0000-0000-000a-000000000000 \
67 00000000-0000-0000-000b-000000000000 \
68 00000000-0000-0000-000c-000000000000 \
69 00000000-0000-0000-000d-000000000000 \
70 00000000-0000-0000-000e-000000000000 \
71 00000000-0000-0000-000f-000000000000 \
73 00000000-0000-0000-0000-00000000000A \
74 00000000-0000-0000-0000-00000000000B \
75 00000000-0000-0000-0000-00000000000C \
76 00000000-0000-0000-0000-00000000000D \
77 00000000-0000-0000-0000-00000000000E \
78 00000000-0000-0000-0000-00000000000F \
80 00000000-0000-0000-0000-00000000000a \
81 00000000-0000-0000-0000-00000000000b \
82 00000000-0000-0000-0000-00000000000c \
83 00000000-0000-0000-0000-00000000000d \
84 00000000-0000-0000-0000-00000000000e \
85 00000000-0000-0000-0000-00000000000f ]
87 set BadGUIDList [list \
89 0000000G-0000-0000-0000-000000000000 \
90 0000000g-0000-0000-0000-000000000000 \
92 00000000-000G-0000-0000-000000000000 \
93 00000000-000g-0000-0000-000000000000 \
95 00000000-0000-000G-0000-000000000000 \
96 00000000-0000-000g-0000-000000000000 \
98 00000000-0000-0000-000G-000000000000 \
99 00000000-0000-0000-000g-000000000000 \
101 00000000-0000-0000-0000-00000000000G \
102 00000000-0000-0000-0000-00000000000g \
104 000000000000000000000000000000000000 \
105 0000000000000000000000000000000000000 \
106 00000000000000000000000000000000000 \
108 0000000000000-0000-0000-000000000000 \
109 00000000-000000000-0000-000000000000 \
110 00000000-0000-000000000-000000000000 \
111 00000000-0000-0000-00000000000000000 \
113 000000000-0000-0000-0000-000000000000 \
114 0000000-0000-0000-0000-000000000000 \
116 00000000-00000-0000-0000-000000000000 \
117 00000000-000-0000-0000-000000000000 \
119 00000000-0000-00000-0000-000000000000 \
120 00000000-0000-000-0000-000000000000 \
122 00000000-0000-0000-00000-000000000000 \
123 00000000-0000-0000-000-000000000000 \
125 00000000-0000-0000-0000-0000000000000 \
126 00000000-0000-0000-0000-00000000000 \
134 foreach GUID ${GoodGUIDList} {
136 if [catch { OCC669 ${GUID} }] then {
138 puts "GUID=\"${GUID}\""
139 puts "Faulty OCC669 (case ${i})"
141 puts "OCC669 OK (case ${i})"
146 foreach GUID ${BadGUIDList} {
148 if [catch { OCC669 ${GUID} }] then {
149 puts "OCC669 OK (case ${i})"
152 puts "GUID=\"${GUID}\""
153 puts "Faulty OCC669 (case ${i})"