3cdfdc9a |
1 | puts "TODO OCC24156 MacOS: Faulty OCC6143" |
2 | |
61c421bf |
3 | puts "================" |
4 | puts "OCC1723" |
5 | puts "OCC2707" |
6 | puts "OCC6143" |
7 | puts "OCC12131" |
8 | puts "================" |
9 | puts "" |
10 | ####################################################################################### |
11 | # OSD::SetSignal : not all FLT exceptions are catched |
61c421bf |
12 | # Correct handling of exceptions on WNT |
13 | ####################################################################################### |
14 | |
15 | pload QAcommands |
16 | |
17 | set BugNumber OCC6143 |
18 | |
19 | set OK_string "TestExcept: Successfull completion\n" |
20 | set IsDone [catch {set aResult [OCC6143]} result] |
21 | |
22 | if { ${IsDone} != 0 } { |
23 | puts "result = ${result}" |
24 | puts "Faulty ${BugNumber}" |
25 | } else { |
26 | if { [string first ${OK_string} ${aResult} ] != -1 } { |
27 | puts "OK ${BugNumber}" |
28 | } else { |
29 | puts "Faulty ${BugNumber}" |
30 | } |
31 | } |
32 | |