0024135: Result of reading step file is invalid.
[occt.git] / tests / bugs / step / bug24135
1 puts "========"
2 puts "OCC24135"
3 puts "========"
4 puts ""
5 #######################################################################
6 # Result of reading step file is invalid.
7 #######################################################################
8
9 set BugNumber OCC24135
10
11 stepread [locate_data_file bug24135_Drum.stp] a *
12
13 set exception_status 0
14 set msg [ tpstat c ]
15 set index [ lsearch $msg Exeption ]
16
17 if {$index > -1} {
18   set exception_status 1
19 }
20
21 if { ${exception_status} != 0 } {
22    puts "Faulty ${BugNumber}"
23 } else {
24    puts "OK ${BugNumber}"
25 }
26
27 set 2dviewer 0