puts "========================"
puts "OCC23009"
puts "========================"
puts ""
#######################################################################
# Request of a new feature fot units management during step import
#######################################################################

set BugNumber OCC23009

set exception_status 1
set info [ stepfileunits [locate_data_file OCC22459-TEST2.stp] ]
set index1 [lsearch $info centimetre]
set index2 [lsearch $info DEGREES]
set index3 [lsearch $info steradian]
if {$index1 > -1 && $index2 > -1 && $index3 > -1} {
    set exception_status 0
}

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

