tests/bugs/xde/bug23911

   1 puts "============"
   2 puts "OCC23911"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Invalid output of command Xdump
   7 #######################################################################
   8
   9 XNewDoc D
  10 box b 1 1 1
  11 ttranslate b 1 0 0
  12 XAddShape D b
  13
  14 set Log [Xdump D]
  15
  16 set status 0
  17
  18 if {[llength ${Log}] < 1} {
  19    puts "Error: Invalid output of command Xdump"
  20    set status 1
  21 }
  22
  23 if { [regexp "INSTANCE" ${Log}] != 1 } {
  24    puts "Error: Invalid output of command Xdump"
  25    set status 1
  26 }
  27
  28 if { [regexp "SOLID" ${Log}] != 1 } {
  29    puts "Error: Invalid output of command Xdump"
  30    set status 1
  31 }
  32
  33 if { ${status} == 0 } {
  34    puts "OK: Good output of command Xdump"
  35 }