puts "=========="
puts "OCC28748"
puts "=========="
puts ""
###########################################################
# XCAFDoc_GraphNode does not restore child on Undo
###########################################################

pload DCAF

ReadStep d [locate_data_file bug21802_as1-oc-214.stp]
UndoLimit d 1
OpenCommand d
XUnSetLayer d 0:1:1:3 256
CommitCommand d
Undo d
 
set info [XGetLayerRefs d 0:1:3:1]
if { [regexp "0:1:1:3" $info] != 1 } {
    puts "Error: child not restored on Undo"
} else {
    puts "OK: child restored on Undo"
}
