tests/bugs/vis/bug346

   1 puts "TODO OCC12345 ALL: An exception was caught"
   2 puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
   3 puts "TODO OCC12345 ALL: TEST INCOMPLETE"
   4 puts "================"
   5 puts "OCC346"
   6 puts "================"
   7 puts ""
   8 #####################################################
   9 ## Avoiding exception when the 2 vertices of the edge are the same.
  10 #####################################################
  11
  12 set x 10
  13 set y 10
  14 set z 10
  15
  16 vertex v1 $x $y $z
  17 vertex v2 $x $y $z
  18
  19 edge result v1 v2
  20
  21 set 2dviewer 0
  22