puts "============"
puts "OCC24430"
puts "============"
puts ""
#######################################################################################
# vviewlist draw command does not added name of viewer created by XShow draw command
#######################################################################################

pload DCAF
NewDocument D XmlXCAF
ReadIges D [locate_data_file bug23921_case2.igs]

XShow D
set info [vviewlist long]
if { $info == "" } {
  puts "Error: viewer name was not added"
} else {
  puts "OK: viewer name was added"
}

checkview -screenshot -3d -path ${imagedir}/${test_image}.png
