0030775: Foundation Classes - Preserve application-defined top-level exception filter
[occt.git] / tests / bugs / fclasses / bug30775
1 puts "================"
2 puts "0030775: OSD::SetSignal() within OSD_ThreadPool should not override global handlers"
3 puts "================"
4 puts ""
5
6 pload QAcommands
7
8 dsetsignal set
9
10 set IsDone [catch {set aResult [OCC30775]} result]
11
12 if { ${IsDone} != 0 } {
13   puts "result = ${result}"
14   puts "Error: command raised exception"
15 } else {
16   if { [string first "NbRaised: 100" $aResult] != -1 } {
17     puts "OK test case"
18   } else {
19     puts "Error: expected to have 100 raised expections"
20   }
21 }
22
23 # restore defaults
24 dsetsignal