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

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"
}
Commit	Line	Data
352ffd73	1	puts "All exceptions is OK"
	2	puts "TODO OCC12345 ALL: An exception was caught"
	3	puts "TODO OCC12345 ALL: \\\\ Exception \\\\.*"
	4
	5	puts "========"
	6	puts "OCC669"
	7	puts "========"
	8	puts ""
	9	#########################################
	10	## Standard_GUID("HoleFeature") cause stack overwrite
	11	#########################################
	12
	13	pload QAcommands
	14
	15	set GoodGUIDList [list 00000000-0000-0000-0000-000000000000 \
	16	\
	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 \
	23	\
	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 \
	30	\
	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 \
	37	\
	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 \
	44	\
	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 \
	51	\
	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 \
	58	\
	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 \
65	\
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 \
72	\
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 \
79	\
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 ]
86
87	set BadGUIDList [list \
88	\
89	0000000G-0000-0000-0000-000000000000 \
90	0000000g-0000-0000-0000-000000000000 \
91	\
92	00000000-000G-0000-0000-000000000000 \
93	00000000-000g-0000-0000-000000000000 \
94	\
95	00000000-0000-000G-0000-000000000000 \
96	00000000-0000-000g-0000-000000000000 \
97	\
98	00000000-0000-0000-000G-000000000000 \
99	00000000-0000-0000-000g-000000000000 \
100	\
101	00000000-0000-0000-0000-00000000000G \
102	00000000-0000-0000-0000-00000000000g \
103	\
104	000000000000000000000000000000000000 \
105	0000000000000000000000000000000000000 \
106	00000000000000000000000000000000000 \
107	\
108	0000000000000-0000-0000-000000000000 \
109	00000000-000000000-0000-000000000000 \
110	00000000-0000-000000000-000000000000 \
111	00000000-0000-0000-00000000000000000 \
112	\
113	000000000-0000-0000-0000-000000000000 \
114	0000000-0000-0000-0000-000000000000 \
115	\
116	00000000-00000-0000-0000-000000000000 \
117	00000000-000-0000-0000-000000000000 \
118	\
119	00000000-0000-00000-0000-000000000000 \
120	00000000-0000-000-0000-000000000000 \
121	\
122	00000000-0000-0000-00000-000000000000 \
123	00000000-0000-0000-000-000000000000 \
124	\
125	00000000-0000-0000-0000-0000000000000 \
126	00000000-0000-0000-0000-00000000000 \
127	\
128	"" ]
129
130	set IsOK 1
131
132	set i 0
133
134	foreach GUID ${GoodGUIDList} {
135	incr i
136	if [catch { OCC669 ${GUID} }] then {
137	set IsOK 0
138	puts "GUID=\"${GUID}\""
139	puts "Faulty OCC669 (case ${i})"
140	} else {
141	puts "OCC669 OK (case ${i})"
142	}
143	}
144
145
146	foreach GUID ${BadGUIDList} {
147	incr i
148	if [catch { OCC669 ${GUID} }] then {
149	puts "OCC669 OK (case ${i})"
150	} else {
151	set IsOK 0
152	puts "GUID=\"${GUID}\""
153	puts "Faulty OCC669 (case ${i})"
154	}
155	}
156
157	if { ${IsOK} == 1} {
158	puts "OCC669 OK"
159	} else {
160	puts "Faulty OCC669"
161	}
162