tests/bugs/vis/bug16950_2

   1 puts "==========="
   2 puts "OCC16950"
   3 puts "==========="
   4 ######################################################
   5 # OCC Visualization fails to display empty nested compounds
   6 ######################################################
   7
   8 set BugNumber OCC16950
   9
  10 puts "Make compound containing another (empty) one"
  11 compound c
  12 compound c result
  13
  14 puts "And display it"
  15 vinit
  16 vdisplay result
  17
  18 # Resume
  19 if [catch { vsetdispmode 2 } res] {
  20    puts "Faulty ${BugNumber}"
  21 } else {
  22    puts "OK ${BugNumber}"
  23 }
  24