[occt.git] / tests / bugs / fclasses / bug30775

puts "================"
puts "0030775: OSD::SetSignal() within OSD_ThreadPool should not override global handlers"
puts "================"
puts ""

pload QAcommands

dsetsignal set

set IsDone [catch {set aResult [OCC30775]} result]

if { ${IsDone} != 0 } {
  puts "result = ${result}"
  puts "Error: command raised exception"
} else {
  if { [string first "NbRaised: 100" $aResult] != -1 } {
    puts "OK test case"
  } else {
    puts "Error: expected to have 100 raised expections"
  }
}

# restore defaults
dsetsignal
Commit	Line	Data
44b80414	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