[occt.git] / tests / bugs / caf / bug669

puts "All exceptions is OK"
puts "TODO OCC12345 ALL: An exception was caught"

puts "========"
puts "0000669: Standard_GUID(HoleFeature) cause stack overwrite"
puts "========"
puts ""

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"
}
Commit	Line	Data
352ffd73	1	puts "All exceptions is OK"
352ffd73	2	puts "TODO OCC12345 ALL: An exception was caught"
352ffd73	3
352ffd73	4	puts "========"
d99f0355	5	puts "0000669: Standard_GUID(HoleFeature) cause stack overwrite"
352ffd73	6	puts "========"
352ffd73	7	puts ""
352ffd73	8
	9	pload QAcommands
	10
	11	set GoodGUIDList [list 00000000-0000-0000-0000-000000000000 \
	12	\
	13	0000000A-0000-0000-0000-000000000000 \
	14	0000000B-0000-0000-0000-000000000000 \
	15	0000000C-0000-0000-0000-000000000000 \
	16	0000000D-0000-0000-0000-000000000000 \
	17	0000000E-0000-0000-0000-000000000000 \
	18	0000000F-0000-0000-0000-000000000000 \
	19	\
	20	0000000a-0000-0000-0000-000000000000 \
	21	0000000b-0000-0000-0000-000000000000 \
	22	0000000c-0000-0000-0000-000000000000 \
	23	0000000d-0000-0000-0000-000000000000 \
	24	0000000e-0000-0000-0000-000000000000 \
	25	0000000f-0000-0000-0000-000000000000 \
	26	\
	27	00000000-000A-0000-0000-000000000000 \
	28	00000000-000B-0000-0000-000000000000 \
	29	00000000-000C-0000-0000-000000000000 \
	30	00000000-000D-0000-0000-000000000000 \
	31	00000000-000E-0000-0000-000000000000 \
	32	00000000-000F-0000-0000-000000000000 \
	33	\
	34	00000000-000a-0000-0000-000000000000 \
	35	00000000-000b-0000-0000-000000000000 \
	36	00000000-000c-0000-0000-000000000000 \
	37	00000000-000d-0000-0000-000000000000 \
	38	00000000-000e-0000-0000-000000000000 \
	39	00000000-000f-0000-0000-000000000000 \
	40	\
	41	00000000-0000-000A-0000-000000000000 \
	42	00000000-0000-000B-0000-000000000000 \
	43	00000000-0000-000C-0000-000000000000 \
	44	00000000-0000-000D-0000-000000000000 \
	45	00000000-0000-000E-0000-000000000000 \
	46	00000000-0000-000F-0000-000000000000 \
	47	\
	48	00000000-0000-000a-0000-000000000000 \
	49	00000000-0000-000b-0000-000000000000 \
	50	00000000-0000-000c-0000-000000000000 \
	51	00000000-0000-000d-0000-000000000000 \
	52	00000000-0000-000e-0000-000000000000 \
	53	00000000-0000-000f-0000-000000000000 \
	54	\
	55	00000000-0000-0000-000A-000000000000 \
	56	00000000-0000-0000-000B-000000000000 \
	57	00000000-0000-0000-000C-000000000000 \
	58	00000000-0000-0000-000D-000000000000 \
	59	00000000-0000-0000-000E-000000000000 \
	60	00000000-0000-0000-000F-000000000000 \
	61	\
	62	00000000-0000-0000-000a-000000000000 \
	63	00000000-0000-0000-000b-000000000000 \
	64	00000000-0000-0000-000c-000000000000 \
	65	00000000-0000-0000-000d-000000000000 \
	66	00000000-0000-0000-000e-000000000000 \
	67	00000000-0000-0000-000f-000000000000 \
	68	\
	69	00000000-0000-0000-0000-00000000000A \
	70	00000000-0000-0000-0000-00000000000B \
	71	00000000-0000-0000-0000-00000000000C \
72	00000000-0000-0000-0000-00000000000D \
73	00000000-0000-0000-0000-00000000000E \
74	00000000-0000-0000-0000-00000000000F \
75	\
76	00000000-0000-0000-0000-00000000000a \
77	00000000-0000-0000-0000-00000000000b \
78	00000000-0000-0000-0000-00000000000c \
79	00000000-0000-0000-0000-00000000000d \
80	00000000-0000-0000-0000-00000000000e \
81	00000000-0000-0000-0000-00000000000f ]
82
83	set BadGUIDList [list \
84	\
85	0000000G-0000-0000-0000-000000000000 \
86	0000000g-0000-0000-0000-000000000000 \
87	\
88	00000000-000G-0000-0000-000000000000 \
89	00000000-000g-0000-0000-000000000000 \
90	\
91	00000000-0000-000G-0000-000000000000 \
92	00000000-0000-000g-0000-000000000000 \
93	\
94	00000000-0000-0000-000G-000000000000 \
95	00000000-0000-0000-000g-000000000000 \
96	\
97	00000000-0000-0000-0000-00000000000G \
98	00000000-0000-0000-0000-00000000000g \
99	\
100	000000000000000000000000000000000000 \
101	0000000000000000000000000000000000000 \
102	00000000000000000000000000000000000 \
103	\
104	0000000000000-0000-0000-000000000000 \
105	00000000-000000000-0000-000000000000 \
106	00000000-0000-000000000-000000000000 \
107	00000000-0000-0000-00000000000000000 \
108	\
109	000000000-0000-0000-0000-000000000000 \
110	0000000-0000-0000-0000-000000000000 \
111	\
112	00000000-00000-0000-0000-000000000000 \
113	00000000-000-0000-0000-000000000000 \
114	\
115	00000000-0000-00000-0000-000000000000 \
116	00000000-0000-000-0000-000000000000 \
117	\
118	00000000-0000-0000-00000-000000000000 \
119	00000000-0000-0000-000-000000000000 \
120	\
121	00000000-0000-0000-0000-0000000000000 \
122	00000000-0000-0000-0000-00000000000 \
123	\
124	"" ]
125
126	set IsOK 1
127
128	set i 0
129
130	foreach GUID ${GoodGUIDList} {
131	incr i
132	if [catch { OCC669 ${GUID} }] then {
133	set IsOK 0
134	puts "GUID=\"${GUID}\""
135	puts "Faulty OCC669 (case ${i})"
136	} else {
137	puts "OCC669 OK (case ${i})"
138	}
139	}
140
141
142	foreach GUID ${BadGUIDList} {
143	incr i
144	if [catch { OCC669 ${GUID} }] then {
145	puts "OCC669 OK (case ${i})"
146	} else {
147	set IsOK 0
148	puts "GUID=\"${GUID}\""
149	puts "Faulty OCC669 (case ${i})"
150	}
151	}
152
153	if { ${IsOK} == 1} {
154	puts "OCC669 OK"
155	} else {
156	puts "Faulty OCC669"
157	}
158