mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
37d6975c77
Change platform in occt test cases in TODOs from Debian\Mandriva to Linux Small corrections in test cases. Return procedure _tests_platform_def.
31 lines
646 B
Plaintext
Executable File
31 lines
646 B
Plaintext
Executable File
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}}
|