0027357: Geom2dGcc_Circ2d2TanOn: check status of sub-algorithms to avoid exceptions

[occt.git] / tests / bugs / modalg_6 / bug27357

diff --git a/tests/bugs/modalg_6/bug27357 b/tests/bugs/modalg_6/bug27357
new file mode 100644 (file)
index 0000000..583b089
--- /dev/null
+++ b/tests/bugs/modalg_6/bug27357
@@ -0,0 +1,16 @@
+puts "========"
+puts "OCC27357"
+puts "========"
+puts ""
+#################################################################
+# Geom2dGcc_Circ2d2TanOn: check status of sub-algorithms to avoid exceptions
+#################################################################
+
+pload QAcommands
+
+set info [OCC27357]
+if { [regexp "Exception" $info] != 0 } {
+    puts "Error : Exception was caught"
+} else {
+    puts "OK"
+}