[occt.git] / tests / bugs / caf / buc60862

puts "==========="
puts "BUC60862"
puts "==========="

pload QAcommands

NewDocument D BinOcaf
UndoLimit D 100

NewCommand D

vertex V1 10 20 0
vertex V2 20 10 0

catch {edge Shape ${V1} ${V2}}
catch {set ResultError [BUC60862 D $Shape]}

if { ${ResultError} != 0 } {
    puts "BUC60862: Error = $ResultError"
}
Commit	Line	Data
a87752f3	1	puts "==========="
	2	puts "BUC60862"
	3	puts "==========="
	4
	5	pload QAcommands
	6
e837410d	7	NewDocument D BinOcaf
a87752f3	8	UndoLimit D 100
	9
	10	NewCommand D
	11
	12	vertex V1 10 20 0
	13	vertex V2 20 10 0
	14
	15	catch {edge Shape ${V1} ${V2}}
	16	catch {set ResultError [BUC60862 D $Shape]}
	17
	18	if { ${ResultError} != 0 } {
	19	puts "BUC60862: Error = $ResultError"
	20	}
	21