Adjusting bugs group for current state of OCCT

[occt.git] / tests / bugs / moddata / bug6450_1

diff --git a/tests/bugs/moddata/bug6450_1 b/tests/bugs/moddata/bug6450_1
new file mode 100644 (file)
index 0000000..2fcb1e3
--- /dev/null
+++ b/tests/bugs/moddata/bug6450_1
@@ -0,0 +1,24 @@
+puts "============"
+puts "OCC6450"
+puts "============"
+puts ""
+######################################################
+# Cannot get common part of two parallel halfspaces
+######################################################
+
+set BugNumber OCC6450
+
+plane pl 100 0 0 1 0 0
+mkface f pl
+halfspace so1 f 0 0 0
+ttranslate f -200 0 0
+halfspace so2 f 0 0 0
+bcommon result so1 so2
+if {[dtyp result] == ""} {
+    puts "Faulty ${BugNumber}: operation failed"
+} else {
+    puts "OK ${BugNumber}"
+}
+
+set 2dviewer 0
+