2508ca8e |
1 | puts "TODO OCC23497 ALL: Exception" |
2 | puts "TODO OCC23497 ALL: exception" |
3 | |
4 | puts "============" |
5 | puts "OCC23497" |
6 | puts "============" |
7 | puts "" |
8 | ####################################################################### |
9 | # Units package raises exception for composite units |
10 | ####################################################################### |
11 | |
12 | set UnitString "sq.km" |
13 | |
14 | if [catch {unitconvtoSI 1 ${UnitString}} res] { |
15 | puts "Error: Units package raises exception for composite units" |
16 | } else { |
17 | puts "OK: Units package work good for composite unit" |
18 | } |