puts "TODO OCC12345 ALL: An exception was caught"
puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
puts "TODO OCC12345 ALL: TEST INCOMPLETE"
puts "================"
puts "OCC346"
puts "================"
puts ""
#####################################################
## Avoiding exception when the 2 vertices of the edge are the same.
#####################################################

set x 10
set y 10
set z 10

vertex v1 $x $y $z
vertex v2 $x $y $z

edge result v1 v2

checkview -display result -2d -path ${imagedir}/${test_image}.png