mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-02 17:46:22 +03:00
25 lines
618 B
Plaintext
Executable File
25 lines
618 B
Plaintext
Executable File
puts "============"
|
|
puts "OCC9848"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Specifying invalid name of unit produces exception.(for example tonne instead ton)
|
|
#######################################################################
|
|
|
|
set BugNumber OCC9848
|
|
|
|
set UnitString "tonne/(mm*s**2)"
|
|
|
|
set List ""
|
|
set result ""
|
|
|
|
if [catch { set List [unitparsing ${UnitString}] } result] {
|
|
if { ${result} == "can not create a sentence\n"} {
|
|
puts "${BugNumber}: OK"
|
|
} else {
|
|
puts "${BugNumber}: Faulty (2)"
|
|
}
|
|
} else {
|
|
puts "${BugNumber}: Faulty (1)"
|
|
}
|