352ffd73 |
1 | puts "============" |
2 | puts "OCC9848" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # Specififying invalid name of unit produces exception.(for example tonne instead ton) |
7 | ####################################################################### |
8 | |
9 | set BugNumber OCC9848 |
10 | |
11 | set UnitString "tonne/(mm*s**2)" |
12 | |
13 | set List "" |
14 | set result "" |
15 | |
16 | if [catch { set List [unitparsing ${UnitString}] } result] { |
17 | if { ${result} == "can not create a sentence\n"} { |
18 | puts "${BugNumber}: OK" |
19 | } else { |
20 | puts "${BugNumber}: Faulty (2)" |
21 | } |
22 | } else { |
23 | puts "${BugNumber}: Faulty (1)" |
24 | } |