[occt.git] / tests / bugs / step / bug24135

puts "========"
puts "OCC24135"
puts "========"
puts ""
#######################################################################
# Result of reading step file is invalid.
#######################################################################

set BugNumber OCC24135

stepread [locate_data_file bug24135_Drum.stp] a *

set exception_status 0
set msg [ tpstat c ]
set index [ lsearch $msg Exeption ]

if {$index > -1} {
  set exception_status 1
}

if { ${exception_status} != 0 } {
   puts "Faulty ${BugNumber}"
} else {
   puts "OK ${BugNumber}"
}

set 2dviewer 0
Commit	Line	Data
45521367	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