mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
66d6976f7a
Adding single vertex for second time was removed. Adding single vertex in first time was removed, but for second time was returned. Duplication of vertex compound in STEPControl_GeometricCurveSet mode was removed. Some cosmetic changes Test case for this bug
41 lines
985 B
Plaintext
Executable File
41 lines
985 B
Plaintext
Executable File
set os $env(os_type)
|
|
if { [string compare $os "windows"] == 0 } {
|
|
# puts "TODO OCC23561 $os: child process exited abnormally"
|
|
} else {
|
|
puts "TODO OCC23561 ALL: An exception was caught"
|
|
puts "TODO OCC23561 ALL: Tcl Exception:"
|
|
puts "TODO OCC23561 ALL: \\*\\* Exception \\*\\*.*"
|
|
}
|
|
puts "TODO OCC23561 ALL: TEST INCOMPLETE"
|
|
|
|
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}}
|