Correction of unstable testing cases
[occt.git] / tests / bugs / moddata_1 / bug22623
1 puts "TODO ?#22623 ALL: Exception"
2 puts "TODO ?#22623 ALL: An exception was caught"
3
4 puts "============"
5 puts "OCC22623"
6 puts "============"
7 puts ""
8 puts "ATTENTION! TEST IN DEBUG MODE!"
9 puts ""
10 #######################################################################
11 # Use of uninitializaed variables in HLRBRep_Curve::UpdateMinMax in debug mode
12 #######################################################################
13
14 catch { pload XDE }
15
16 set BugNumber OCC22623
17
18 stepread [locate_data_file OCC22623-fg5test.step] a *
19
20 # Axes for a_3 only
21 hprj p1 -166.887936587259 -524.121423723229 -3.52089319794717 0. 0. 1. 1. 0. 0.
22
23 # Axes for complete assembly
24 compound a_1 a_2 a_3 a_4 a_5 a
25 houtl o1 a_3
26 hfill o1 p1 0
27 hload o1
28 hsetprj p1
29 hupdate
30
31 set exception_status 0
32 set r [hhide]
33 set index [lsearch $r exception]
34 if {$index > -1} {
35   set exception_status 1
36 }
37
38 hres2d
39
40 # Resume
41 puts ""
42 if { ${exception_status} != 0 } {
43    puts "Faulty ${BugNumber}"
44 } else {
45    puts "OK ${BugNumber}"
46 }
47