5 #####################################################################################
6 # Visibility of free, simple shapes not saved when writing XCAF Document info STEP
7 #####################################################################################
13 if { [regexp "Write Done" $info] != 1 } {
14 puts "Error: file was not written"
16 puts "OK: file was written"
19 stepread test_box.step a *