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