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