0030346: Modeling Algorithms - BRepPrimAPI_MakeRevol throws "BRepSweep_Translation...
[occt.git] / tests / bugs / modalg_7 / bug30346_2
diff --git a/tests/bugs/modalg_7/bug30346_2 b/tests/bugs/modalg_7/bug30346_2
new file mode 100644 (file)
index 0000000..6fa6295
--- /dev/null
@@ -0,0 +1,23 @@
+puts "========"
+puts "0030346: Modeling Algorithms - BRepPrimAPI_MakeRevol throws BRepSweep_Translation::MakeEmptyVertex"
+puts "========"
+puts ""
+
+pload MODELING 
+
+sphere s 1
+mkface f1 s 0 2*pi 0.785398163397448 1.5707963267949
+prism r1 f1 0 0 2 
+savehistory h1
+set s1 [dump h1]
+if { !([regexp "0 Deleted" $s1] && [regexp "2 Generated" $s1])} {
+  puts "Error: wrong history h1"
+}
+#
+mkface f2 s 0 5 0.785398163397448 1.5707963267949
+prism r2 f2 0 0 2
+savehistory h2
+set s2 [dump h2]
+if { !([regexp "0 Deleted" $s2] && [regexp "6 Generated" $s2])} {
+  puts "Error: wrong history h2"
+}