0024931: Stack overflow when writing large shapes to XML
[occt.git] / tests / bugs / fclasses / bug24931
1 puts "=========="
2 puts "OCC24931"
3 puts "=========="
4 puts ""
5 ####################################################
6 # Stack overflow when writing large shapes to XML
7 ####################################################
8
9 pload QAcommands
10
11 set info [OCC24931]
12
13 if { [regexp "OK" $info] != 1 } {
14   puts "Error: Stack is overflow"
15 } else {
16   puts "OK: Stack is good"
17 }