mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
27 lines
716 B
Plaintext
Executable File
27 lines
716 B
Plaintext
Executable File
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}"
|
|
}
|
|
|