tests/bugs/fclasses/bug9848_2

   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 "ton/(m*s**2)"
  12
  13 set List ""
  14 set result ""
  15 set GoodResult "Token word : (ton)/((m)*((s)**(2)))"
  16
  17 if [catch { set List [unitparsing ${UnitString}] } result] {
  18      puts "${BugNumber}: Faulty (1)"
  19 } else {
  20     if {  ${List} == "${GoodResult}\n"} {
  21         puts "${BugNumber}: OK"
  22     } else {
  23         puts "${BugNumber}: Faulty (2)"
  24     }
  25 }