0022820: OCCT IGES writer loses plane information
[occt.git] / tests / bugs / iges / bug22820
diff --git a/tests/bugs/iges/bug22820 b/tests/bugs/iges/bug22820
new file mode 100755 (executable)
index 0000000..116054e
--- /dev/null
@@ -0,0 +1,30 @@
+puts "================"
+puts "OCC22820"
+puts "================"
+puts ""
+#######################################################################################
+# OCCT IGES writer loses plane information
+######################################################################################
+
+pload XDE
+
+box b 1 1 1
+set b_info [dump b]
+if { [regexp BSplineSurface ${b_info}] } {
+   puts "Error in dump b"
+}
+
+brepiges b 0
+igesbrep . bb *
+
+set types_info [listtypes]
+puts "types_info=${types_info}"
+if { [regexp BSplineSurface ${types_info}] } {
+   puts "Error in listtypes"
+}
+
+igesbrep . bb *
+set bb_info [dump bb]
+if { [regexp BSplineSurface ${bb_info}] } {
+   puts "Error in dump bb"
+}