mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
2857a8acd8
DRAW commands stepwrite and brepiges modified to never ask for interactive input of file name or write mode; the behavior is completely defined by input arguments. String buffers causing access violation due to overflow are eliminated. Test case bugs xde bug23561 added for this issue; TODO 23651 in related test cases removed. Compiler warning (unrelated) is fixed in QABugs_11.cxx
33 lines
668 B
Plaintext
Executable File
33 lines
668 B
Plaintext
Executable File
set os $env(os_type)
|
|
|
|
puts "================"
|
|
puts "OCC23379"
|
|
puts "================"
|
|
puts ""
|
|
#################################
|
|
# Exporting single point into STEP produces a compound with two points
|
|
#################################
|
|
|
|
pload XDE
|
|
|
|
set filedir ${imagedir}
|
|
|
|
set Name bug23379_point
|
|
set brepFileName ${Name}.brep
|
|
set stepFileName ${imagedir}/${Name}.step
|
|
|
|
restore [locate_data_file ${brepFileName}] point
|
|
|
|
stepwrite 0 point ${stepFileName}
|
|
stepread ${stepFileName} a *
|
|
set L [llength [explode a_1]]
|
|
puts "L=$L"
|
|
|
|
if { ${L} == 1} {
|
|
puts "OK : Number of points is good"
|
|
} else {
|
|
puts "Error : Number of points is bad"
|
|
}
|
|
|
|
catch {exec rm -f ${stepFileName}}
|