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

puts "============"
puts "OCC9848"
puts "============"
puts ""
#######################################################################
# Specififying invalid name of unit produces exception.(for example tonne instead ton)
#######################################################################

set BugNumber OCC9848

set UnitString "tonne/(mm*s**2)"

set List ""
set result ""

if [catch { set List [unitparsing ${UnitString}] } result] {
    if {  ${result} == "can not create a sentence\n"} {
	puts "${BugNumber}: OK"
    } else {
	puts "${BugNumber}: Faulty (2)"
    }
} else {
    puts "${BugNumber}: Faulty (1)"
}
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 "tonne/(mms*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	}