mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
7a7e8cf174
Test cases save results in directory pointed by ${imagedir} Tcl variable. File names are initialized in scripts and passed to DRAW command as argument.
Tests User Guide was updated.
Remarks were corrected
27 lines
625 B
Plaintext
27 lines
625 B
Plaintext
puts "=========="
|
|
puts "OCC23951"
|
|
puts "=========="
|
|
puts ""
|
|
#####################################################################################
|
|
# Visibility of free, simple shapes not saved when writing XCAF Document info STEP
|
|
#####################################################################################
|
|
|
|
pload QAcommands
|
|
|
|
set FilePath ${imagedir}/bug23951_test_box.step
|
|
|
|
file delete -force ${FilePath}
|
|
set info [OCC23951 ${FilePath}]
|
|
|
|
if { [regexp "Write Done" $info] != 1 } {
|
|
puts "Error: file was not written"
|
|
} else {
|
|
puts "OK: file was written"
|
|
}
|
|
|
|
stepread ${FilePath} a *
|
|
axo
|
|
fit
|
|
|
|
set only_screen_axo 1
|