mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
26 lines
662 B
Plaintext
Executable File
26 lines
662 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 "ton/(m*s**2)"
|
|
|
|
set List ""
|
|
set result ""
|
|
set GoodResult "Token word : (ton)/((m)*((s)**(2)))"
|
|
|
|
if [catch { set List [unitparsing ${UnitString}] } result] {
|
|
puts "${BugNumber}: Faulty (1)"
|
|
} else {
|
|
if { ${List} == "${GoodResult}\n"} {
|
|
puts "${BugNumber}: OK"
|
|
} else {
|
|
puts "${BugNumber}: Faulty (2)"
|
|
}
|
|
}
|