0023379: Exporting single point into STEP produces a compound with two points
[occt.git] / tests / bugs / step / bug23379
diff --git a/tests/bugs/step/bug23379 b/tests/bugs/step/bug23379
new file mode 100755 (executable)
index 0000000..84eb7e8
--- /dev/null
@@ -0,0 +1,40 @@
+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}}