[occt.git] / tests / bugs / fclasses / bug9848_2

puts "============"
puts "OCC9848"
puts "============"
puts ""
#######################################################################
# Specififying 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)"
    }
}
Commit	Line	Data
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 "ton/(ms*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	}