0023379: Exporting single point into STEP produces a compound with two points
[occt.git] / tests / bugs / step / bug23379
1 set os $env(os_type)
2 if { [string compare $os "windows"] == 0 } {
3 #     puts "TODO OCC23561 $os: child process exited abnormally"
4 } else {
5     puts "TODO OCC23561 ALL: An exception was caught"
6     puts "TODO OCC23561 ALL: Tcl Exception:"
7     puts "TODO OCC23561 ALL: \\*\\* Exception \\*\\*.*"
8 }
9 puts "TODO OCC23561 ALL: TEST INCOMPLETE"
10
11 puts "================"
12 puts "OCC23379"
13 puts "================"
14 puts ""
15 #################################
16 # Exporting single point into STEP produces a compound with two points
17 #################################
18
19 pload XDE
20
21 set filedir ${imagedir}
22
23 set Name bug23379_point
24 set brepFileName ${Name}.brep
25 set stepFileName ${imagedir}/${Name}.step
26
27 restore [locate_data_file ${brepFileName}] point
28
29 stepwrite 0 point ${stepFileName}
30 stepread ${stepFileName} a *
31 set L [llength [explode a_1]]
32 puts "L=$L"
33
34 if { ${L} == 1} {
35   puts "OK : Number of points is good"
36 } else {
37   puts "Error : Number of points is bad"
38 }
39
40 catch {exec rm -f ${stepFileName}}