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

puts "============="
puts "BUC60727"
puts "============="

pload QAcommands

set start [BUC60727]
set n [llength $start]
set end [lindex $start [expr $n-1]]

if { $end != 3} {
    puts "Faulty : Incorrect converting of the unit"
}
Commit	Line	Data
a87752f3	1	puts "============="
	2	puts "BUC60727"
	3	puts "============="
	4
	5	pload QAcommands
	6
	7	set start [BUC60727]
	8	set n [llength $start]
	9	set end [lindex $start [expr $n-1]]
	10
	11	if { $end != 3} {
	12	puts "Faulty : Incorrect converting of the unit"
	13	}
	14